Mercurial > hg > xemacs-beta
comparison lisp/prim/faces.el @ 104:cf808b4c4290 r20-1b4
Import from CVS: tag r20-1b4
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:16:51 +0200 |
| parents | 4be1180a9e89 |
| children | 8ff55ebd4be9 |
comparison
equal
deleted
inserted
replaced
| 103:30eda07fe280 | 104:cf808b4c4290 |
|---|---|
| 1263 | 1263 |
| 1264 ;; first time through, set the zmacs-region color if it's not already | 1264 ;; first time through, set the zmacs-region color if it's not already |
| 1265 ;; specified. | 1265 ;; specified. |
| 1266 (unless (or (face-differs-from-default-p 'zmacs-region device) | 1266 (unless (or (face-differs-from-default-p 'zmacs-region device) |
| 1267 (face-background 'zmacs-region 'global)) | 1267 (face-background 'zmacs-region 'global)) |
| 1268 (set-face-background 'zmacs-region "gray" 'global 'color) | 1268 (set-face-background 'zmacs-region "gray65" 'global 'color) |
| 1269 (set-face-background 'zmacs-region "gray80" 'global 'grayscale)) | 1269 (set-face-background 'zmacs-region "gray65" 'global 'grayscale)) |
| 1270 (unless (or (face-differs-from-default-p 'zmacs-region device) | 1270 (unless (or (face-differs-from-default-p 'zmacs-region device) |
| 1271 (face-background-pixmap 'zmacs-region 'global)) | 1271 (face-background-pixmap 'zmacs-region 'global)) |
| 1272 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'color) | 1272 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'color) |
| 1273 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'grayscale) | 1273 (set-face-background-pixmap 'zmacs-region [nothing] 'global 'grayscale) |
| 1274 (set-face-background-pixmap 'zmacs-region "gray3" 'global 'mono)) | 1274 (set-face-background-pixmap 'zmacs-region "gray3" 'global 'mono)) |
| 1294 (invert-face 'list-mode-item-selected device)) | 1294 (invert-face 'list-mode-item-selected device)) |
| 1295 | 1295 |
| 1296 ;; Set the primary-selection color unless already specified. | 1296 ;; Set the primary-selection color unless already specified. |
| 1297 (unless (or (face-differs-from-default-p 'primary-selection device) | 1297 (unless (or (face-differs-from-default-p 'primary-selection device) |
| 1298 (face-background 'primary-selection 'global)) | 1298 (face-background 'primary-selection 'global)) |
| 1299 (set-face-background 'primary-selection "gray" 'global 'color) | 1299 (set-face-background 'primary-selection "gray65" 'global 'color) |
| 1300 (set-face-background 'primary-selection "gray80" 'global 'grayscale)) | 1300 (set-face-background 'primary-selection "gray65" 'global 'grayscale)) |
| 1301 (unless (or (face-differs-from-default-p 'secondary-selection device) | 1301 (unless (or (face-differs-from-default-p 'secondary-selection device) |
| 1302 (face-background-pixmap 'primary-selection 'global)) | 1302 (face-background-pixmap 'primary-selection 'global)) |
| 1303 (set-face-background-pixmap 'primary-selection "gray3" 'global 'mono)) | 1303 (set-face-background-pixmap 'primary-selection "gray3" 'global 'mono)) |
| 1304 ;; If the primary-selection face isn't distinguished on this device, | 1304 ;; If the primary-selection face isn't distinguished on this device, |
| 1305 ;; at least try inverting it. | 1305 ;; at least try inverting it. |