diff options
| author | Eli Zaretskii | 2019-11-30 13:27:11 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2019-11-30 13:27:11 +0200 |
| commit | 64687872f62e7837340b77697d4ccd4f60caaae0 (patch) | |
| tree | bf42f6eef4ea64420edba2395ae77914c69a82fd /lisp | |
| parent | abd3dd3a467fd93ac66db1a13b31787d88a95d55 (diff) | |
| download | emacs-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.el | 12 | ||||
| -rw-r--r-- | lisp/vc/ediff-init.el | 24 | ||||
| -rw-r--r-- | lisp/vc/log-view.el | 4 | ||||
| -rw-r--r-- | lisp/vc/smerge-mode.el | 6 |
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 | ||