Mercurial > hg > xemacs-beta

comparison lisp/prim/faces.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 364816949b59
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
1367 (if (featurep 'x) 1367 (if (featurep 'x)
1368 (progn 1368 (progn
1369 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x)) 1369 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x))
1370 (set-face-font 'modeline-buffer-id [bold-italic] nil 1370 (set-face-font 'modeline-buffer-id [bold-italic] nil
1371 '(grayscale x)))) 1371 '(grayscale x))))
1372 (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty)))) 1372 (if (featurep 'tty)
1373 (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty)))))
1373 (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append) 1374 (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append)
1374 1375
1375 ;; modeline-mousable: 1376 ;; modeline-mousable:
1376 (if (not (face-differs-from-default-p 'modeline-mousable device)) 1377 (if (not (face-differs-from-default-p 'modeline-mousable device))
1377 (let ((fg (face-foreground 'modeline-mousable 'global)) 1378 (let ((fg (face-foreground 'modeline-mousable 'global))
1466 (if (featurep 'tty) 1467 (if (featurep 'tty)
1467 (set-face-reverse-p 'list-mode-item-selected t 'global 'tty)) 1468 (set-face-reverse-p 'list-mode-item-selected t 'global 'tty))
1468 ;; 1469 ;;
1469 (if (featurep 'tty) 1470 (if (featurep 'tty)
1470 (set-face-reverse-p 'isearch t 'global 'tty)) 1471 (set-face-reverse-p 'isearch t 'global 'tty))
1472
1473 ;;; faces.el ends here