Mercurial > hg > xemacs-beta

diff lisp/prim/faces.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents ac2d302a0011
children 0293115a14e9
line wrap: on
line diff
--- a/lisp/prim/faces.el	Mon Aug 13 08:47:56 2007 +0200
+++ b/lisp/prim/faces.el	Mon Aug 13 08:48:16 2007 +0200
@@ -1368,7 +1368,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:
@@ -1467,3 +1468,5 @@
 ;;
 (if (featurep 'tty)
     (set-face-reverse-p 'isearch t 'global 'tty))
+
+;;; faces.el ends here