Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 364816949b59
children cf808b4c4290
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1341 ;; modeline-buffer-id: 1341 ;; modeline-buffer-id:
1342 (unless (face-differs-from-default-p 'modeline-buffer-id device) 1342 (unless (face-differs-from-default-p 'modeline-buffer-id device)
1343 (let ((fg (face-foreground 'modeline-buffer-id 'global)) 1343 (let ((fg (face-foreground 'modeline-buffer-id 'global))
1344 (font (face-font 'modeline-buffer-id 'global))) 1344 (font (face-font 'modeline-buffer-id 'global)))
1345 (when (and (null fg) (featurep 'x)) 1345 (when (and (null fg) (featurep 'x))
1346 (set-face-foreground 'modeline-buffer-id "blue" 'global '(color x))) 1346 (set-face-foreground 'modeline-buffer-id "blue4" 'global '(color x)))
1347 (unless font 1347 (unless font
1348 (when (featurep 'x) 1348 (when (featurep 'x)
1349 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x)) 1349 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x))
1350 (set-face-font 'modeline-buffer-id [bold-italic] nil '(grayscale x))) 1350 (set-face-font 'modeline-buffer-id [bold-italic] nil '(grayscale x)))
1351 (when (featurep 'tty) 1351 (when (featurep 'tty)
1355 ;; modeline-mousable: 1355 ;; modeline-mousable:
1356 (unless (face-differs-from-default-p 'modeline-mousable device) 1356 (unless (face-differs-from-default-p 'modeline-mousable device)
1357 (let ((fg (face-foreground 'modeline-mousable 'global)) 1357 (let ((fg (face-foreground 'modeline-mousable 'global))
1358 (font (face-font 'modeline-mousable 'global))) 1358 (font (face-font 'modeline-mousable 'global)))
1359 (when (and (null fg) (featurep 'x)) 1359 (when (and (null fg) (featurep 'x))
1360 (set-face-foreground 'modeline-mousable "red" 'global '(color x))) 1360 (set-face-foreground 'modeline-mousable "firebrick" 'global '(color x)))
1361 (unless font 1361 (unless font
1362 (when (featurep 'x) 1362 (when (featurep 'x)
1363 (set-face-font 'modeline-mousable [bold] nil '(mono x)) 1363 (set-face-font 'modeline-mousable [bold] nil '(mono x))
1364 (set-face-font 'modeline-mousable [bold] nil '(grayscale x)))))) 1364 (set-face-font 'modeline-mousable [bold] nil '(grayscale x))))))
1365 (set-face-parent 'modeline-mousable 'modeline nil nil 'append) 1365 (set-face-parent 'modeline-mousable 'modeline nil nil 'append)
1368 (unless (face-differs-from-default-p 'modeline-mousable-minor-mode device) 1368 (unless (face-differs-from-default-p 'modeline-mousable-minor-mode device)
1369 (let ((fg (face-foreground 'modeline-mousable-minor-mode 'global))) 1369 (let ((fg (face-foreground 'modeline-mousable-minor-mode 'global)))
1370 (when (and (null fg) (featurep 'x)) 1370 (when (and (null fg) (featurep 'x))
1371 (set-face-foreground 'modeline-mousable-minor-mode 1371 (set-face-foreground 'modeline-mousable-minor-mode
1372 '(((color x) . "green4") 1372 '(((color x) . "green4")
1373 ((color x) . "green")) 'global)))) 1373 ((color x) . "forestgreen")) 'global))))
1374 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable 1374 (set-face-parent 'modeline-mousable-minor-mode 'modeline-mousable
1375 nil nil 'append) 1375 nil nil 'append)
1376 ) 1376 )
1377 1377
1378 1378