Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 09:05:11 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 09:05:42 2007 +0200
@@ -1369,7 +1369,8 @@
 		(set-face-font 'modeline-buffer-id [bold-italic] nil '(mono x))
 		(set-face-font 'modeline-buffer-id [bold-italic] nil
 			       '(grayscale x))))
-	  (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty))))
+	  (if (featurep 'tty)
+	      (set-face-font 'modeline-buffer-id [bold-italic] nil 'tty)))))
   (set-face-parent 'modeline-buffer-id 'modeline nil nil 'append)
 
   ;; modeline-mousable:
@@ -1468,3 +1469,5 @@
 ;;
 (if (featurep 'tty)
     (set-face-reverse-p 'isearch t 'global 'tty))
+
+;;; faces.el ends here