From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 14 Mar 2025 16:05:26 +0000 (+0000)
Subject: el/dot-emacs.el: Apply `extend' setting to all(?) the applicable fonts.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain

el/dot-emacs.el: Apply `extend' setting to all(?) the applicable fonts.
---

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 51acf40..4717081 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -2029,8 +2029,8 @@ (mdw-define-face trailing-whitespace
   (((class color)) :background "red")
   (t :inverse-video t))
 (mdw-define-face whitespace-line
-  (((class color)) :background "darkred")
-  (t :inverse-video t))
+  (((class color)) :background "darkred" :extend t)
+  (t :inverse-video t :extend t))
 (mdw-define-face mdw-punct-face
   (((min-colors 64)) :foreground "burlywood2")
   (((class color)) :foreground "yellow"))
@@ -2065,7 +2065,7 @@ (mdw-define-face font-lock-doc-face
   (t :inherit font-lock-string-face))
 
 (mdw-define-face message-separator
-  (t :background "red" :foreground "white" :weight bold))
+  (t :background "red" :foreground "white" :weight bold :extend t))
 (mdw-define-face message-cited-text
   (default :slant italic)
   (((min-colors 64)) :foreground "SkyBlue1")
@@ -2169,7 +2169,7 @@   (default :weight bold)
   (((min-colors 64)) :foreground "SkyBlue1")
   (((class color)) :foreground "cyan"))
 (mdw-define-face diff-header
-  (((min-colors 64)) :background "grey10"))
+  (((min-colors 64)) :background "grey10" :extend t))
 (mdw-define-face diff-added
   (((class color)) :foreground "green"))
 (mdw-define-face diff-removed
@@ -2177,60 +2177,60 @@ (mdw-define-face diff-removed
 (mdw-define-face diff-context
   (t nil))
 (mdw-define-face diff-refine-change
-  (((min-colors 64)) :background "RoyalBlue4")
+  (((min-colors 64)) :background "RoyalBlue4" :extend t)
   (t :underline t))
 (mdw-define-face diff-refine-removed
-  (((min-colors 64)) :background "#500")
-  (t :underline t))
+  (((min-colors 64)) :background "#500" :extend t)
+  (t :underline t :extend t))
 (mdw-define-face diff-refine-added
-  (((min-colors 64)) :background "#050")
-  (t :underline t))
+  (((min-colors 64)) :background "#050" :extend t)
+  (t :underline t :extend t))
 
 (setq ediff-force-faces t)
 (mdw-define-face ediff-current-diff-A
-  (((min-colors 64)) :background "darkred")
-  (((class color)) :background "red")
-  (t :inverse-video t))
+  (((min-colors 64)) :background "darkred" :extend t)
+  (((class color)) :background "red" :extend t)
+  (t :inverse-video t :extend t))
 (mdw-define-face ediff-fine-diff-A
   (((min-colors 64)) :background "red3")
   (((class color)) :inverse-video t)
   (t :inverse-video nil))
 (mdw-define-face ediff-even-diff-A
-  (((min-colors 64)) :background "#300"))
+  (((min-colors 64)) :background "#300" :extend t))
 (mdw-define-face ediff-odd-diff-A
-  (((min-colors 64)) :background "#300"))
+  (((min-colors 64)) :background "#300" :extend t))
 (mdw-define-face ediff-current-diff-B
-  (((min-colors 64)) :background "darkgreen")
-  (((class color)) :background "magenta")
-  (t :inverse-video t))
+  (((min-colors 64)) :background "darkgreen" :extend t)
+  (((class color)) :background "magenta" :extend t)
+  (t :inverse-video t :extend t))
 (mdw-define-face ediff-fine-diff-B
   (((min-colors 64)) :background "green4")
   (((class color)) :inverse-video t)
   (t :inverse-video nil))
 (mdw-define-face ediff-even-diff-B
-  (((min-colors 64)) :background "#020"))
+  (((min-colors 64)) :background "#020" :extend t))
 (mdw-define-face ediff-odd-diff-B
-  (((min-colors 64)) :background "#020"))
+  (((min-colors 64)) :background "#020" :extend t))
 (mdw-define-face ediff-current-diff-C
-  (((min-colors 64)) :background "darkblue")
-  (((class color)) :background "blue")
-  (t :inverse-video t))
+  (((min-colors 64)) :background "darkblue" :extend t)
+  (((class color)) :background "blue" :extend t)
+  (t :inverse-video t :extend t))
 (mdw-define-face ediff-fine-diff-C
   (((min-colors 64)) :background "blue1")
   (((class color)) :inverse-video t)
   (t :inverse-video nil))
 (mdw-define-face ediff-even-diff-C
-  (((min-colors 64)) :background "#004"))
+  (((min-colors 64)) :background "#004" :extend t))
 (mdw-define-face ediff-odd-diff-C
-  (((min-colors 64)) :background "#004"))
+  (((min-colors 64)) :background "#004" :extend t))
 (mdw-define-face ediff-current-diff-Ancestor
-  (((min-colors 64)) :background "#630")
-  (((class color)) :background "blue")
+  (((min-colors 64)) :background "#630" :extend t)
+  (((class color)) :background "blue" :extend t)
   (t :inverse-video t))
 (mdw-define-face ediff-even-diff-Ancestor
-  (((min-colors 64)) :background "#320"))
+  (((min-colors 64)) :background "#320" :extend t))
 (mdw-define-face ediff-odd-diff-Ancestor
-  (((min-colors 64)) :background "#320"))
+  (((min-colors 64)) :background "#320" :extend t))
 
 (mdw-define-face magit-hash
   (((min-colors 64)) :foreground "grey40")
@@ -2240,28 +2240,28 @@ (mdw-define-face magit-popup-argument
   (((class color)) :foreground "green")
   (t :weight bold))
 (mdw-define-face magit-diff-hunk-heading
-  (((min-colors 64)) :foreground "grey70" :background "grey25")
-  (((class color)) :foreground "yellow"))
+  (((min-colors 64)) :foreground "grey70" :background "grey25" :extend t)
+  (((class color)) :foreground "yellow" :extend t))
 (mdw-define-face magit-diff-hunk-heading-highlight
   (((min-colors 64)) :foreground "grey70" :background "grey35")
   (((class color)) :foreground "yellow" :background "blue"))
 (mdw-define-face magit-diff-added
-  (((min-colors 64)) :foreground "#ddffdd" :background "#335533")
-  (((class color)) :foreground "green"))
+  (((min-colors 64)) :foreground "#ddffdd" :background "#335533" :extend t)
+  (((class color)) :foreground "green" :extend t))
 (mdw-define-face magit-diff-added-highlight
-  (((min-colors 64)) :foreground "#cceecc" :background "#336633")
-  (((class color)) :foreground "green" :background "blue"))
+  (((min-colors 64)) :foreground "#cceecc" :background "#336633" :extend t)
+  (((class color)) :foreground "green" :background "blue" :extend t))
 (mdw-define-face magit-diff-removed
-  (((min-colors 64)) :foreground "#ffdddd" :background "#553333")
-  (((class color)) :foreground "red"))
+  (((min-colors 64)) :foreground "#ffdddd" :background "#553333" :extend t)
+  (((class color)) :foreground "red" :extend t))
 (mdw-define-face magit-diff-removed-highlight
-  (((min-colors 64)) :foreground "#eecccc" :background "#663333")
-  (((class color)) :foreground "red" :background "blue"))
+  (((min-colors 64)) :foreground "#eecccc" :background "#663333" :extend t)
+  (((class color)) :foreground "red" :background "blue" :extend t))
 (mdw-define-face magit-blame-heading
   (((min-colors 64)) :foreground "white" :background "grey25"
-		     :weight normal :slant normal)
+		     :weight normal :slant normal :extend t)
   (((class color)) :foreground "white" :background "blue"
-		   :weight normal :slant normal))
+		   :weight normal :slant normal :extend t))
 (mdw-define-face magit-blame-name
   (t :inherit magit-blame-heading :slant italic))
 (mdw-define-face magit-blame-date
@@ -2271,8 +2271,8 @@ (mdw-define-face magit-blame-summary
   (t :inherit magit-blame-heading :weight bold))
 
 (mdw-define-face dylan-header-background
-  (((min-colors 64)) :background "NavyBlue")
-  (((class color)) :background "blue"))
+  (((min-colors 64)) :background "NavyBlue" :extend t)
+  (((class color)) :background "blue" :extend t))
 
 (mdw-define-face erc-my-nick-face
   (t :foreground "yellow" :weight bold))