Mercurial > hg > xemacs-beta
comparison lisp/prim/faces.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:48:16 +0200 |
parents | ac2d302a0011 |
children | 0293115a14e9 |
comparison
equal
deleted
inserted
replaced
11:91ffe8bd52e4 | 12:bcdc7deadc19 |
---|---|
1366 (if (featurep 'x) | 1366 (if (featurep 'x) |
1367 (progn | 1367 (progn |
1368 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x)) | 1368 (set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x)) |
1369 (set-face-font 'modeline-buffer-id [bold-italic] nil | 1369 (set-face-font 'modeline-buffer-id [bold-italic] nil |
1370 '(grayscale x)))) | 1370 '(grayscale x)))) |
1371 (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty)))) | 1371 (if (featurep 'tty) |
1372 (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty))))) | |
1372 (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append) | 1373 (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append) |
1373 | 1374 |
1374 ;; modeline-mousable: | 1375 ;; modeline-mousable: |
1375 (if (not (face-differs-from-default-p 'modeline-mousable device)) | 1376 (if (not (face-differs-from-default-p 'modeline-mousable device)) |
1376 (let ((fg (face-foreground 'modeline-mousable 'global)) | 1377 (let ((fg (face-foreground 'modeline-mousable 'global)) |
1465 (if (featurep 'tty) | 1466 (if (featurep 'tty) |
1466 (set-face-reverse-p 'list-mode-item-selected t 'global 'tty)) | 1467 (set-face-reverse-p 'list-mode-item-selected t 'global 'tty)) |
1467 ;; | 1468 ;; |
1468 (if (featurep 'tty) | 1469 (if (featurep 'tty) |
1469 (set-face-reverse-p 'isearch t 'global 'tty)) | 1470 (set-face-reverse-p 'isearch t 'global 'tty)) |
1471 | |
1472 ;;; faces.el ends here |