Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 215:1f0dabaa0855 r20-4b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b6
author cvs
date Mon, 13 Aug 2007 10:07:35 +0200
parents 41ff10fd062f
children 0e522484dd2a
comparison
equal deleted inserted replaced
214:c5d88c05e1e9 215:1f0dabaa0855
371 (setq xpm-color-symbols 371 (setq xpm-color-symbols
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 (x-get-resource "backgroundToolBarColor" 376 (or
377 "BackgroundToolBarColor" 'string))) 377 (x-get-resource "background" "Background" 'string)
378 (x-get-resource "backgroundToolBarColor"
379 "BackgroundToolBarColor" 'string))))
378 ))) 380 )))
379 381
380 ;;; internal routines 382 ;;; internal routines
381 383
382 ;;; x-init-face-from-resources is responsible for initializing a 384 ;;; x-init-face-from-resources is responsible for initializing a