Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 337:fbbf69b4e8a7 r21-0-66

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0-66
author cvs
date Mon, 13 Aug 2007 10:51:02 +0200
parents 54f7aa390f4f
children 8bec6624d99b
comparison
equal deleted inserted replaced
336:fe0a93612022 337:fbbf69b4e8a7
600 ;;; specified. 600 ;;; specified.
601 ;;; 601 ;;;
602 (defun x-init-global-faces () 602 (defun x-init-global-faces ()
603 (or (face-font 'default 'global) 603 (or (face-font 'default 'global)
604 (set-face-font 'default 604 (set-face-font 'default
605 "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*") 605 "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"
606 'global) 606 'global '(x default)))
607 (or (face-foreground 'default 'global) 607 (or (face-foreground 'default 'global)
608 (set-face-foreground 'default "black" 'global 'x)) 608 (set-face-foreground 'default "black" 'global '(x default)))
609 (or (face-background 'default 'global) 609 (or (face-background 'default 'global)
610 (set-face-background 'default "gray80" 'global 'x))) 610 (set-face-background 'default "gray80" 'global '(x default))))
611 611
612 ;;; x-init-device-faces is responsible for initializing default 612 ;;; x-init-device-faces is responsible for initializing default
613 ;;; values for faces on a newly created device. 613 ;;; values for faces on a newly created device.
614 ;;; 614 ;;;
615 (defun x-init-device-faces (device) 615 (defun x-init-device-faces (device)