Lines Matching +defs:face +defs:background
62 This is provided as a temporary relief for users of face-capable displays
77 (defun ediff-has-face-support-p ()
813 ;; in effect for this buffer: `face', `ascii',
816 (if (and (ediff-has-face-support-p) ediff-use-faces) 'face 'ascii)
820 (if (ediff-has-face-support-p)
824 (defalias 'ediff-get-face 'get-face))
829 (defalias 'ediff-get-face 'internal-get-face))
855 ;; A-list of current-diff-face-* symbols associated with buf types
856 (defconst ediff-current-diff-face-alist
863 (defun ediff-set-overlay-face (extent face)
864 (ediff-overlay-put extent 'face face)
871 (face (ediff-overlay-get overlay 'face))
873 face-help)
876 (if (stringp face)
877 (setq face (intern face)))
878 (setq face-help (and face (get face 'ediff-help-echo)))
882 (face-help) ; refinement of current diff region
889 (defun ediff-set-face-pixmap (face pixmap)
890 "Set face pixmap on a monochrome display."
893 (set-face-background-pixmap face pixmap)
895 (message "Pixmap not found for %S: %s" (face-name face) pixmap)
898 (defun ediff-hide-face (face)
899 (if (and (ediff-has-face-support-p)
902 (add-to-list 'facemenu-unlisted-faces face)))
909 (:foreground "firebrick" :background "pale green"))
911 (:foreground "blue3" :background "yellow3"))
913 '((((type tty)) (:foreground "blue3" :background "yellow3"))
914 (((class color)) (:foreground "firebrick" :background "pale green"))
918 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
919 ;; this variable is set to nil, then again to the appropriate face.
920 (defvar ediff-current-diff-face-A 'ediff-current-diff-A
923 widget to customize the actual face object `ediff-current-diff-A'
925 (ediff-hide-face ediff-current-diff-face-A)
929 (ediff-has-face-support-p)
931 (copy-face 'modeline ediff-current-diff-face-A))
938 (:foreground "DarkOrchid" :background "Yellow"))
940 (:foreground "magenta3" :background "yellow3"
943 '((((type tty)) (:foreground "magenta3" :background "yellow3"
945 (((class color)) (:foreground "DarkOrchid" :background "Yellow"))
949 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
950 ;; this variable is set to nil, then again to the appropriate face.
951 (defvar ediff-current-diff-face-B 'ediff-current-diff-B
954 widget to customize the actual face `ediff-current-diff-B'
956 (ediff-hide-face ediff-current-diff-face-B)
960 (ediff-has-face-support-p)
962 (copy-face 'modeline ediff-current-diff-face-B))
968 (:foreground "Navy" :background "Pink"))
970 (:foreground "cyan3" :background "yellow3" :weight bold))
972 '((((type tty)) (:foreground "cyan3" :background "yellow3" :weight bold))
973 (((class color)) (:foreground "Navy" :background "Pink"))
977 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
978 ;; this variable is set to nil, then again to the appropriate face.
979 (defvar ediff-current-diff-face-C 'ediff-current-diff-C
982 widget to customize the actual face object `ediff-current-diff-C'
984 (ediff-hide-face ediff-current-diff-face-C)
988 (ediff-has-face-support-p)
990 (copy-face 'modeline ediff-current-diff-face-C))
996 (:foreground "Black" :background "VioletRed"))
998 (:foreground "black" :background "magenta3"))
1000 '((((type tty)) (:foreground "black" :background "magenta3"))
1001 (((class color)) (:foreground "Black" :background "VioletRed"))
1005 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1006 ;; this variable is set to nil, then again to the appropriate face.
1007 (defvar ediff-current-diff-face-Ancestor 'ediff-current-diff-Ancestor
1010 widget to customize the actual face object `ediff-current-diff-Ancestor'
1012 (ediff-hide-face ediff-current-diff-face-Ancestor)
1016 (ediff-has-face-support-p)
1018 (copy-face 'modeline ediff-current-diff-face-Ancestor))
1024 (:foreground "Navy" :background "sky blue"))
1026 (:foreground "white" :background "sky blue" :weight bold))
1028 '((((type tty)) (:foreground "white" :background "sky blue" :weight bold))
1029 (((class color)) (:foreground "Navy" :background "sky blue"))
1033 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1034 ;; this variable is set to nil, then again to the appropriate face.
1035 (defvar ediff-fine-diff-face-A 'ediff-fine-diff-A
1038 widget to customize the actual face object `ediff-fine-diff-A'
1040 (ediff-hide-face ediff-fine-diff-face-A)
1045 (:foreground "Black" :background "cyan"))
1047 (:foreground "magenta3" :background "cyan3"))
1049 '((((type tty)) (:foreground "magenta3" :background "cyan3"))
1050 (((class color)) (:foreground "Black" :background "cyan"))
1054 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1055 ;; this variable is set to nil, then again to the appropriate face.
1056 (defvar ediff-fine-diff-face-B 'ediff-fine-diff-B
1059 widget to customize the actual face object `ediff-fine-diff-B'
1061 (ediff-hide-face ediff-fine-diff-face-B)
1066 (:foreground "white" :background "Turquoise"))
1068 (:foreground "Black" :background "Turquoise"))
1070 (:foreground "yellow3" :background "Turquoise"
1073 '((((type tty)) (:foreground "yellow3" :background "Turquoise"
1075 (((type pc)) (:foreground "white" :background "Turquoise"))
1076 (((class color)) (:foreground "Black" :background "Turquoise"))
1080 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1081 ;; this variable is set to nil, then again to the appropriate face.
1082 (defvar ediff-fine-diff-face-C 'ediff-fine-diff-C
1085 widget to customize the actual face object `ediff-fine-diff-C'
1087 (ediff-hide-face ediff-fine-diff-face-C)
1092 (:foreground "Black" :background "Green"))
1094 (:foreground "red3" :background "green"))
1096 '((((type tty)) (:foreground "red3" :background "green"))
1097 (((class color)) (:foreground "Black" :background "Green"))
1100 At present, this face is not used and no fine differences are computed for the
1103 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1104 ;; this variable is set to nil, then again to the appropriate face.
1105 (defvar ediff-fine-diff-face-Ancestor 'ediff-fine-diff-Ancestor
1108 widget to customize the actual face object `ediff-fine-diff-Ancestor'
1110 (ediff-hide-face ediff-fine-diff-face-Ancestor)
1114 (cond ((not (ediff-has-face-support-p)) nil)
1124 (:foreground "green3" :background "light grey"))
1126 (:foreground "Black" :background "light grey"))
1128 (:foreground "red3" :background "light grey"
1131 `((((type tty)) (:foreground "red3" :background "light grey"
1133 (((type pc)) (:foreground "green3" :background "light grey"))
1134 (((class color)) (:foreground "Black" :background "light grey"))
1138 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1139 ;; this variable is set to nil, then again to the appropriate face.
1140 (defvar ediff-even-diff-face-A 'ediff-even-diff-A
1143 widget to customize the actual face object `ediff-even-diff-A'
1145 (ediff-hide-face ediff-even-diff-face-A)
1150 (:foreground "White" :background "Grey"))
1152 (:foreground "blue3" :background "Grey" :weight bold))
1154 `((((type tty)) (:foreground "blue3" :background "Grey" :weight bold))
1155 (((class color)) (:foreground "White" :background "Grey"))
1159 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1160 ;; this variable is set to nil, then again to the appropriate face.
1161 (defvar ediff-even-diff-face-B 'ediff-even-diff-B
1164 widget to customize the actual face object `ediff-even-diff-B'
1166 (ediff-hide-face ediff-even-diff-face-B)
1171 (:foreground "yellow3" :background "light grey"))
1173 (:foreground "Black" :background "light grey"))
1175 (:foreground "yellow3" :background "light grey"
1178 `((((type tty)) (:foreground "yellow3" :background "light grey"
1180 (((type pc)) (:foreground "yellow3" :background "light grey"))
1181 (((class color)) (:foreground "Black" :background "light grey"))
1185 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1186 ;; this variable is set to nil, then again to the appropriate face.
1187 (defvar ediff-even-diff-face-C 'ediff-even-diff-C
1190 widget to customize the actual face object `ediff-even-diff-C'
1192 (ediff-hide-face ediff-even-diff-face-C)
1197 (:foreground "cyan3" :background "light grey"))
1199 (:foreground "White" :background "Grey"))
1201 (:foreground "cyan3" :background "light grey"
1204 `((((type tty)) (:foreground "cyan3" :background "light grey"
1206 (((type pc)) (:foreground "cyan3" :background "light grey"))
1207 (((class color)) (:foreground "White" :background "Grey"))
1211 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1212 ;; this variable is set to nil, then again to the appropriate face.
1213 (defvar ediff-even-diff-face-Ancestor 'ediff-even-diff-Ancestor
1216 widget to customize the actual face object `ediff-even-diff-Ancestor'
1218 (ediff-hide-face ediff-even-diff-face-Ancestor)
1220 ;; Association between buffer types and even-diff-face symbols
1221 (defconst ediff-even-diff-face-alist
1230 (:foreground "green3" :background "gray40"))
1232 (:foreground "White" :background "Grey"))
1234 (:foreground "red3" :background "black" :weight bold))
1236 '((((type tty)) (:foreground "red3" :background "black" :weight bold))
1237 (((type pc)) (:foreground "green3" :background "gray40"))
1238 (((class color)) (:foreground "White" :background "Grey"))
1242 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1243 ;; this variable is set to nil, then again to the appropriate face.
1244 (defvar ediff-odd-diff-face-A 'ediff-odd-diff-A
1247 widget to customize the actual face object `ediff-odd-diff-A'
1249 (ediff-hide-face ediff-odd-diff-face-A)
1255 (:foreground "White" :background "gray40"))
1257 (:foreground "Black" :background "light grey"))
1259 (:foreground "cyan3" :background "black" :weight bold))
1261 '((((type tty)) (:foreground "cyan3" :background "black" :weight bold))
1262 (((type pc)) (:foreground "White" :background "gray40"))
1263 (((class color)) (:foreground "Black" :background "light grey"))
1267 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1268 ;; this variable is set to nil, then again to the appropriate face.
1269 (defvar ediff-odd-diff-face-B 'ediff-odd-diff-B
1272 widget to customize the actual face object `ediff-odd-diff-B'
1274 (ediff-hide-face ediff-odd-diff-face-B)
1279 (:foreground "yellow3" :background "gray40"))
1281 (:foreground "White" :background "Grey"))
1283 (:foreground "yellow3" :background "black" :weight bold))
1285 '((((type tty)) (:foreground "yellow3" :background "black" :weight bold))
1286 (((type pc)) (:foreground "yellow3" :background "gray40"))
1287 (((class color)) (:foreground "White" :background "Grey"))
1291 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1292 ;; this variable is set to nil, then again to the appropriate face.
1293 (defvar ediff-odd-diff-face-C 'ediff-odd-diff-C
1296 widget to customize the actual face object `ediff-odd-diff-C'
1298 (ediff-hide-face ediff-odd-diff-face-C)
1303 (:foreground "cyan3" :background "gray40"))
1305 (:foreground "green3" :background "black" :weight bold))
1307 '((((type tty)) (:foreground "green3" :background "black" :weight bold))
1308 (((class color)) (:foreground "cyan3" :background "gray40"))
1312 ;; An internal variable. Ediff takes the face from here. When unhighlighting,
1313 ;; this variable is set to nil, then again to the appropriate face.
1314 (defvar ediff-odd-diff-face-Ancestor 'ediff-odd-diff-Ancestor
1317 widget to customize the actual face object `ediff-odd-diff-Ancestor'
1319 (ediff-hide-face ediff-odd-diff-face-Ancestor)
1321 ;; Association between buffer types and odd-diff-face symbols
1322 (defconst ediff-odd-diff-face-alist
1328 ;; A-list of fine-diff face symbols associated with buffer types
1329 (defconst ediff-fine-diff-face-alist
1336 (put ediff-fine-diff-face-A 'ediff-help-echo
1338 (put ediff-fine-diff-face-B 'ediff-help-echo
1340 (put ediff-fine-diff-face-C 'ediff-help-echo
1342 (put ediff-fine-diff-face-Ancestor 'ediff-help-echo
1503 (defsubst ediff-background-face (buf-type dif-num)
1505 ;; This is why even face is used when dif-num is odd.
1508 ediff-even-diff-face-alist
1509 ediff-odd-diff-face-alist)
1514 (defun ediff-paint-background-regions-in-one-buffer (buf-type unhighlight)
1524 (ediff-set-overlay-face
1527 (ediff-background-face buf-type diff-num))))
1533 (defun ediff-paint-background-regions (&optional unhighlight)
1534 (ediff-paint-background-regions-in-one-buffer
1536 (ediff-paint-background-regions-in-one-buffer
1538 (ediff-paint-background-regions-in-one-buffer
1540 (ediff-paint-background-regions-in-one-buffer