Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 1f0dabaa0855
children 727739f917cb
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
372 (list 372 (list
373 (purecopy '("foreground" (face-foreground 'default))) 373 (purecopy '("foreground" (face-foreground 'default)))
374 (purecopy '("background" (face-background 'default))) 374 (purecopy '("background" (face-background 'default)))
375 (purecopy '("backgroundToolBarColor" 375 (purecopy '("backgroundToolBarColor"
376 (or 376 (or
377 (x-get-resource "backgroundToolBarColor"
378 "BackgroundToolBarColor" 'string)
377 (x-get-resource "background" "Background" 'string) 379 (x-get-resource "background" "Background" 'string)
378 (x-get-resource "backgroundToolBarColor" 380 "Gray80")))
379 "BackgroundToolBarColor" 'string)))) 381 (purecopy '("foregroundToolBarColor"
382 (or
383 (x-get-resource "foregroundToolBarColor"
384 "ForegroundToolBarColor" 'string)
385 (x-get-resource "foreground" "Foreground" 'string)
386 "Black")))
380 ))) 387 )))
381 388
382 ;;; internal routines 389 ;;; internal routines
383 390
384 ;;; x-init-face-from-resources is responsible for initializing a 391 ;;; x-init-face-from-resources is responsible for initializing a