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