aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii2019-11-30 13:27:11 +0200
committerEli Zaretskii2019-11-30 13:27:11 +0200
commit64687872f62e7837340b77697d4ccd4f60caaae0 (patch)
treebf42f6eef4ea64420edba2395ae77914c69a82fd /lisp
parentabd3dd3a467fd93ac66db1a13b31787d88a95d55 (diff)
downloademacs-64687872f62e7837340b77697d4ccd4f60caaae0.tar.gz
emacs-64687872f62e7837340b77697d4ccd4f60caaae0.zip
Add ':extend' attribute to faces and themes
* etc/themes/wombat-theme.el: * etc/themes/wheatgrass-theme.el: * etc/themes/tsdh-light-theme.el: * etc/themes/tsdh-dark-theme.el: * etc/themes/tango-theme.el: * etc/themes/tango-dark-theme.el: * etc/themes/misterioso-theme.el: * etc/themes/manoj-dark-theme.el: * etc/themes/light-blue-theme.el: * etc/themes/leuven-theme.el: * etc/themes/dichromacy-theme.el: * etc/themes/deeper-blue-theme.el: * etc/themes/adwaita-theme.el: Add ':extend' attribute to all faces that are by default defined with it. * lisp/vc/smerge-mode.el (smerge-upper, smerge-lower) (smerge-base): * lisp/vc/log-view.el (log-view-file, log-view-message): * lisp/vc/ediff-init.el (ediff-current-diff-A) (ediff-current-diff-B, ediff-current-diff-C) (ediff-current-diff-Ancestor, ediff-even-diff-A) (ediff-even-diff-B, ediff-even-diff-C) (ediff-even-diff-Ancestor, ediff-odd-diff-A) (ediff-odd-diff-B, ediff-odd-diff-C) (ediff-odd-diff-Ancestor): * lisp/vc/diff-mode.el (diff-header, diff-file-header) (diff-removed, diff-added): Make sure all definitions of faces have the same value of the ':extend' property, otherwise customizing background color or underline etc. attributes of these faces on some displays will produce effects different from other displays.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/vc/diff-mode.el12
-rw-r--r--lisp/vc/ediff-init.el24
-rw-r--r--lisp/vc/log-view.el4
-rw-r--r--lisp/vc/smerge-mode.el6
4 files changed, 23 insertions, 23 deletions
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el
index dfac1cca808..08998fbc776 100644
--- a/lisp/vc/diff-mode.el
+++ b/lisp/vc/diff-mode.el
@@ -302,8 +302,8 @@ well."
302 (((class color) (min-colors 88) (background dark)) 302 (((class color) (min-colors 88) (background dark))
303 :background "grey45" :extend t) 303 :background "grey45" :extend t)
304 (((class color)) 304 (((class color))
305 :foreground "blue1" :weight bold) 305 :foreground "blue1" :weight bold :extend t)
306 (t :weight bold)) 306 (t :weight bold :extend t))
307 "`diff-mode' face inherited by hunk and index header faces.") 307 "`diff-mode' face inherited by hunk and index header faces.")
308 308
309(defface diff-file-header 309(defface diff-file-header
@@ -312,8 +312,8 @@ well."
312 (((class color) (min-colors 88) (background dark)) 312 (((class color) (min-colors 88) (background dark))
313 :background "grey60" :weight bold :extend t) 313 :background "grey60" :weight bold :extend t)
314 (((class color)) 314 (((class color))
315 :foreground "cyan" :weight bold) 315 :foreground "cyan" :weight bold :extend t)
316 (t :weight bold)) ; :height 1.3 316 (t :weight bold :extend t)) ; :height 1.3
317 "`diff-mode' face used to highlight file header lines.") 317 "`diff-mode' face used to highlight file header lines.")
318 318
319(defface diff-index 319(defface diff-index
@@ -334,7 +334,7 @@ well."
334 (((class color) (min-colors 88) (background dark)) 334 (((class color) (min-colors 88) (background dark))
335 :background "#553333" :extend t) 335 :background "#553333" :extend t)
336 (((class color)) 336 (((class color))
337 :foreground "red")) 337 :foreground "red" :extend t))
338 "`diff-mode' face used to highlight removed lines.") 338 "`diff-mode' face used to highlight removed lines.")
339 339
340(defface diff-added 340(defface diff-added
@@ -347,7 +347,7 @@ well."
347 (((class color) (min-colors 88) (background dark)) 347 (((class color) (min-colors 88) (background dark))
348 :background "#335533" :extend t) 348 :background "#335533" :extend t)
349 (((class color)) 349 (((class color))
350 :foreground "green")) 350 :foreground "green" :extend t))
351 "`diff-mode' face used to highlight added lines.") 351 "`diff-mode' face used to highlight added lines.")
352 352
353(defface diff-changed 353(defface diff-changed
diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el
index ca7f4eb8a22..a9cbf40c5e3 100644
--- a/lisp/vc/ediff-init.el
+++ b/lisp/vc/ediff-init.el
@@ -813,7 +813,7 @@ to temp files in buffer jobs and when Ediff needs to find fine differences."
813 (:foreground "firebrick" :background "pale green" :extend t)) 813 (:foreground "firebrick" :background "pale green" :extend t))
814 (((class color)) 814 (((class color))
815 (:foreground "blue3" :background "yellow3" :extend t)) 815 (:foreground "blue3" :background "yellow3" :extend t))
816 (t (:inverse-video t))) 816 (t (:inverse-video t :extend t)))
817 "Face for highlighting the selected difference in buffer A." 817 "Face for highlighting the selected difference in buffer A."
818 :group 'ediff-highlighting) 818 :group 'ediff-highlighting)
819;; An internal variable. Ediff takes the face from here. When unhighlighting, 819;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -835,7 +835,7 @@ this variable represents.")
835 (((class color)) 835 (((class color))
836 (:foreground "magenta3" :background "yellow3" 836 (:foreground "magenta3" :background "yellow3"
837 :weight bold :extend t)) 837 :weight bold :extend t))
838 (t (:inverse-video t))) 838 (t (:inverse-video t :extend t)))
839 "Face for highlighting the selected difference in buffer B." 839 "Face for highlighting the selected difference in buffer B."
840 :group 'ediff-highlighting) 840 :group 'ediff-highlighting)
841;; An internal variable. Ediff takes the face from here. When unhighlighting, 841;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -856,7 +856,7 @@ this variable represents.")
856 (:foreground "Navy" :background "Pink" :extend t)) 856 (:foreground "Navy" :background "Pink" :extend t))
857 (((class color)) 857 (((class color))
858 (:foreground "cyan3" :background "yellow3" :weight bold :extend t)) 858 (:foreground "cyan3" :background "yellow3" :weight bold :extend t))
859 (t (:inverse-video t))) 859 (t (:inverse-video t :extend t)))
860 "Face for highlighting the selected difference in buffer C." 860 "Face for highlighting the selected difference in buffer C."
861 :group 'ediff-highlighting) 861 :group 'ediff-highlighting)
862;; An internal variable. Ediff takes the face from here. When unhighlighting, 862;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -879,7 +879,7 @@ this variable represents.")
879 :background "#004151" :extend t) 879 :background "#004151" :extend t)
880 (((class color)) 880 (((class color))
881 (:foreground "black" :background "magenta3" :extend t)) 881 (:foreground "black" :background "magenta3" :extend t))
882 (t (:inverse-video t))) 882 (t (:inverse-video t :extend t)))
883 "Face for highlighting the selected difference in buffer Ancestor." 883 "Face for highlighting the selected difference in buffer Ancestor."
884 :group 'ediff-highlighting) 884 :group 'ediff-highlighting)
885;; An internal variable. Ediff takes the face from here. When unhighlighting, 885;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1001,7 +1001,7 @@ this variable represents.")
1001 (((class color)) 1001 (((class color))
1002 (:foreground "red3" :background "light grey" 1002 (:foreground "red3" :background "light grey"
1003 :weight bold :extend t)) 1003 :weight bold :extend t))
1004 (t (:italic t :stipple ,stipple-pixmap))) 1004 (t (:italic t :stipple ,stipple-pixmap :extend t)))
1005 "Face for highlighting even-numbered non-current differences in buffer A." 1005 "Face for highlighting even-numbered non-current differences in buffer A."
1006 :group 'ediff-highlighting) 1006 :group 'ediff-highlighting)
1007;; An internal variable. Ediff takes the face from here. When unhighlighting, 1007;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1020,7 +1020,7 @@ this variable represents.")
1020 (:foreground "White" :background "Grey" :extend t)) 1020 (:foreground "White" :background "Grey" :extend t))
1021 (((class color)) 1021 (((class color))
1022 (:foreground "blue3" :background "Grey" :weight bold :extend t)) 1022 (:foreground "blue3" :background "Grey" :weight bold :extend t))
1023 (t (:italic t :stipple ,stipple-pixmap))) 1023 (t (:italic t :stipple ,stipple-pixmap :extend t)))
1024 "Face for highlighting even-numbered non-current differences in buffer B." 1024 "Face for highlighting even-numbered non-current differences in buffer B."
1025 :group 'ediff-highlighting) 1025 :group 'ediff-highlighting)
1026;; An internal variable. Ediff takes the face from here. When unhighlighting, 1026;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1042,7 +1042,7 @@ this variable represents.")
1042 (((class color)) 1042 (((class color))
1043 (:foreground "yellow3" :background "light grey" 1043 (:foreground "yellow3" :background "light grey"
1044 :weight bold :extend t)) 1044 :weight bold :extend t))
1045 (t (:italic t :stipple ,stipple-pixmap))) 1045 (t (:italic t :stipple ,stipple-pixmap :extend t)))
1046 "Face for highlighting even-numbered non-current differences in buffer C." 1046 "Face for highlighting even-numbered non-current differences in buffer C."
1047 :group 'ediff-highlighting) 1047 :group 'ediff-highlighting)
1048;; An internal variable. Ediff takes the face from here. When unhighlighting, 1048;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1064,7 +1064,7 @@ this variable represents.")
1064 (((class color)) 1064 (((class color))
1065 (:foreground "cyan3" :background "light grey" 1065 (:foreground "cyan3" :background "light grey"
1066 :weight bold :extend t)) 1066 :weight bold :extend t))
1067 (t (:italic t :stipple ,stipple-pixmap))) 1067 (t (:italic t :stipple ,stipple-pixmap :extend t)))
1068 "Face for highlighting even-numbered non-current differences in the ancestor buffer." 1068 "Face for highlighting even-numbered non-current differences in the ancestor buffer."
1069 :group 'ediff-highlighting) 1069 :group 'ediff-highlighting)
1070;; An internal variable. Ediff takes the face from here. When unhighlighting, 1070;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1092,7 +1092,7 @@ this variable represents.")
1092 (:foreground "White" :background "Grey" :extend t)) 1092 (:foreground "White" :background "Grey" :extend t))
1093 (((class color)) 1093 (((class color))
1094 (:foreground "red3" :background "black" :weight bold :extend t)) 1094 (:foreground "red3" :background "black" :weight bold :extend t))
1095 (t (:italic t :stipple "gray1"))) 1095 (t (:italic t :stipple "gray1" :extend t)))
1096 "Face for highlighting odd-numbered non-current differences in buffer A." 1096 "Face for highlighting odd-numbered non-current differences in buffer A."
1097 :group 'ediff-highlighting) 1097 :group 'ediff-highlighting)
1098;; An internal variable. Ediff takes the face from here. When unhighlighting, 1098;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1114,7 +1114,7 @@ this variable represents.")
1114 (:foreground "Black" :background "light grey" :extend t)) 1114 (:foreground "Black" :background "light grey" :extend t))
1115 (((class color)) 1115 (((class color))
1116 (:foreground "cyan3" :background "black" :weight bold :extend t)) 1116 (:foreground "cyan3" :background "black" :weight bold :extend t))
1117 (t (:italic t :stipple "gray1"))) 1117 (t (:italic t :stipple "gray1" :extend t)))
1118 "Face for highlighting odd-numbered non-current differences in buffer B." 1118 "Face for highlighting odd-numbered non-current differences in buffer B."
1119 :group 'ediff-highlighting) 1119 :group 'ediff-highlighting)
1120;; An internal variable. Ediff takes the face from here. When unhighlighting, 1120;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1135,7 +1135,7 @@ this variable represents.")
1135 (:foreground "White" :background "Grey" :extend t)) 1135 (:foreground "White" :background "Grey" :extend t))
1136 (((class color)) 1136 (((class color))
1137 (:foreground "yellow3" :background "black" :weight bold :extend t)) 1137 (:foreground "yellow3" :background "black" :weight bold :extend t))
1138 (t (:italic t :stipple "gray1"))) 1138 (t (:italic t :stipple "gray1" :extend t)))
1139 "Face for highlighting odd-numbered non-current differences in buffer C." 1139 "Face for highlighting odd-numbered non-current differences in buffer C."
1140 :group 'ediff-highlighting) 1140 :group 'ediff-highlighting)
1141;; An internal variable. Ediff takes the face from here. When unhighlighting, 1141;; An internal variable. Ediff takes the face from here. When unhighlighting,
@@ -1154,7 +1154,7 @@ this variable represents.")
1154 (:foreground "cyan3" :background "gray40" :extend t)) 1154 (:foreground "cyan3" :background "gray40" :extend t))
1155 (((class color)) 1155 (((class color))
1156 (:foreground "green3" :background "black" :weight bold :extend t)) 1156 (:foreground "green3" :background "black" :weight bold :extend t))
1157 (t (:italic t :stipple "gray1"))) 1157 (t (:italic t :stipple "gray1" :extend t)))
1158 "Face for highlighting odd-numbered non-current differences in the ancestor buffer." 1158 "Face for highlighting odd-numbered non-current differences in the ancestor buffer."
1159 :group 'ediff-highlighting) 1159 :group 'ediff-highlighting)
1160;; An internal variable. Ediff takes the face from here. When unhighlighting, 1160;; An internal variable. Ediff takes the face from here. When unhighlighting,
diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el
index 054c2b91340..31d833c6f39 100644
--- a/lisp/vc/log-view.el
+++ b/lisp/vc/log-view.el
@@ -197,14 +197,14 @@ If it is nil, `log-view-toggle-entry-display' does nothing.")
197(defface log-view-file 197(defface log-view-file
198 '((((class color) (background light)) 198 '((((class color) (background light))
199 (:background "grey70" :weight bold :extend t)) 199 (:background "grey70" :weight bold :extend t))
200 (t (:weight bold))) 200 (t (:weight bold :extend t)))
201 "Face for the file header line in `log-view-mode'." 201 "Face for the file header line in `log-view-mode'."
202 :group 'log-view) 202 :group 'log-view)
203 203
204(defface log-view-message 204(defface log-view-message
205 '((((class color) (background light)) 205 '((((class color) (background light))
206 (:background "grey85" :extend t)) 206 (:background "grey85" :extend t))
207 (t (:weight bold))) 207 (t (:weight bold :extend t)))
208 "Face for the message header line in `log-view-mode'." 208 "Face for the message header line in `log-view-mode'."
209 :group 'log-view) 209 :group 'log-view)
210 210
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el
index 6d2d3f8d42f..cbd5e77120b 100644
--- a/lisp/vc/smerge-mode.el
+++ b/lisp/vc/smerge-mode.el
@@ -81,7 +81,7 @@ Used in `smerge-diff-base-upper' and related functions."
81 (((class color) (min-colors 88) (background dark)) 81 (((class color) (min-colors 88) (background dark))
82 :background "#553333" :extend t) 82 :background "#553333" :extend t)
83 (((class color)) 83 (((class color))
84 :foreground "red")) 84 :foreground "red" :extend))
85 "Face for the `upper' version of a conflict.") 85 "Face for the `upper' version of a conflict.")
86(define-obsolete-face-alias 'smerge-mine 'smerge-upper "26.1") 86(define-obsolete-face-alias 'smerge-mine 'smerge-upper "26.1")
87(defvar smerge-upper-face 'smerge-upper) 87(defvar smerge-upper-face 'smerge-upper)
@@ -92,7 +92,7 @@ Used in `smerge-diff-base-upper' and related functions."
92 (((class color) (min-colors 88) (background dark)) 92 (((class color) (min-colors 88) (background dark))
93 :background "#335533" :extend t) 93 :background "#335533" :extend t)
94 (((class color)) 94 (((class color))
95 :foreground "green")) 95 :foreground "green" :extend))
96 "Face for the `lower' version of a conflict.") 96 "Face for the `lower' version of a conflict.")
97(define-obsolete-face-alias 'smerge-other 'smerge-lower "26.1") 97(define-obsolete-face-alias 'smerge-other 'smerge-lower "26.1")
98(defvar smerge-lower-face 'smerge-lower) 98(defvar smerge-lower-face 'smerge-lower)
@@ -103,7 +103,7 @@ Used in `smerge-diff-base-upper' and related functions."
103 (((class color) (min-colors 88) (background dark)) 103 (((class color) (min-colors 88) (background dark))
104 :background "#888833" :extend t) 104 :background "#888833" :extend t)
105 (((class color)) 105 (((class color))
106 :foreground "yellow")) 106 :foreground "yellow" :extend t))
107 "Face for the base code.") 107 "Face for the base code.")
108(defvar smerge-base-face 'smerge-base) 108(defvar smerge-base-face 'smerge-base)
109 109