Mercurial > hg > xemacs-beta

comparison lisp/x11/x-faces.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 376386a54a3c
children 1917ad0d78d7
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
493 "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*") 493 "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*")
494 'global) 494 'global)
495 (or (face-foreground 'default 'global) 495 (or (face-foreground 'default 'global)
496 (set-face-foreground 'default "black" 'global 'x)) 496 (set-face-foreground 'default "black" 'global 'x))
497 (or (face-background 'default 'global) 497 (or (face-background 'default 'global)
498 (set-face-background 'default "white" 'global 'x))) 498 (set-face-background 'default "gray80" 'global 'x)))
499 499
500 ;;; x-init-device-faces is responsible for initializing default 500 ;;; x-init-device-faces is responsible for initializing default
501 ;;; values for faces on a newly created device. 501 ;;; values for faces on a newly created device.
502 ;;; 502 ;;;
503 (defun x-init-device-faces (device) 503 (defun x-init-device-faces (device)
575 (if (or (and fg (equal (downcase (color-instance-name fg)) "white")) 575 (if (or (and fg (equal (downcase (color-instance-name fg)) "white"))
576 (and bg (equal (downcase (color-instance-name bg)) "black"))) 576 (and bg (equal (downcase (color-instance-name bg)) "black")))
577 (progn 577 (progn
578 (or fg (set-face-foreground 'default "white" device)) 578 (or fg (set-face-foreground 'default "white" device))
579 (or bg (set-face-background 'default "black" device))) 579 (or bg (set-face-background 'default "black" device)))
580 (or fg (set-face-foreground 'default "black" device)) 580 (or fg (set-face-foreground 'default "white" device))
581 (or bg (set-face-background 'default "white" device))))) 581 (or bg (set-face-background 'default "black" device)))))
582 582
583 ;; Don't look at reverseVideo now or initialize the modeline. This 583 ;; Don't look at reverseVideo now or initialize the modeline. This
584 ;; is done on a per-frame basis at the appropriate time. 584 ;; is done on a per-frame basis at the appropriate time.
585 585
586 ;; 586 ;;