Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 4103f0995bd7
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
1268 (or (face-differs-from-default-p 'highlight device) 1268 (or (face-differs-from-default-p 'highlight device)
1269 (invert-face 'highlight device)) 1269 (invert-face 'highlight device))
1270 1270
1271 ;; first time through, set the zmacs-region color if it's not already 1271 ;; first time through, set the zmacs-region color if it's not already
1272 ;; specified. 1272 ;; specified.
1273 (if (and (not (face-differs-from-default-p 'zmacs-region device)) 1273 (unless (or (face-differs-from-default-p 'zmacs-region device)
1274 (not (face-background 'zmacs-region 'global))) 1274 (face-background 'zmacs-region 'global))
1275 (progn 1275 (set-face-background 'zmacs-region "gray65" 'global 'color)
1276 (set-face-background 'zmacs-region "gray" 'global 'color) 1276 (set-face-background 'zmacs-region "gray65" 'global 'grayscale))
1277 (set-face-background 'zmacs-region "gray80" 'global 'grayscale)))
1278 (if (and (not (face-differs-from-default-p 'zmacs-region device)) 1277 (if (and (not (face-differs-from-default-p 'zmacs-region device))
1279 (not (face-background-pixmap 'zmacs-region 'global))) 1278 (not (face-background-pixmap 'zmacs-region 'global)))
1280 (progn 1279 (progn
1281 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'color) 1280 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'color)
1282 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'grayscale) 1281 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'grayscale)
1305 (or (face-differs-from-default-p 'list-mode-item-selected device) 1304 (or (face-differs-from-default-p 'list-mode-item-selected device)
1306 (invert-face 'list-mode-item-selected device)) 1305 (invert-face 'list-mode-item-selected device))
1307 1306
1308 ;; first time through, set the primary-selection color if it's not already 1307 ;; first time through, set the primary-selection color if it's not already
1309 ;; specified. 1308 ;; specified.
1310 (if (and (not (face-differs-from-default-p 'primary-selection device)) 1309 (unless (or (face-differs-from-default-p 'primary-selection device)
1311 (not (face-background 'primary-selection 'global))) 1310 (face-background 'primary-selection 'global))
1312 (progn 1311 (set-face-background 'primary-selection "gray65" 'global 'color)
1313 (set-face-background 'primary-selection "gray" 'global 'color) 1312 (set-face-background 'primary-selection "gray65" 'global 'grayscale))
1314 (set-face-background 'primary-selection "gray80" 'global 'grayscale)))
1315 (if (and (not (face-differs-from-default-p 'secondary-selection device)) 1313 (if (and (not (face-differs-from-default-p 'secondary-selection device))
1316 (not (face-background-pixmap 'primary-selection 'global))) 1314 (not (face-background-pixmap 'primary-selection 'global)))
1317 (set-face-background-pixmap 'primary-selection "gray3" 'global 'mono)) 1315 (set-face-background-pixmap 'primary-selection "gray3" 'global 'mono))
1318 ;; if the primary-selection face isn't distinguished on this device, 1316 ;; if the primary-selection face isn't distinguished on this device,
1319 ;; at least try inverting it. 1317 ;; at least try inverting it.