Mercurial > hg > xemacs-beta

comparison lisp/x-faces.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 57709be46d1b
children 70ad99077275
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
359 (make-obsolete 'x-make-face-italic 'make-face-italic) 359 (make-obsolete 'x-make-face-italic 'make-face-italic)
360 (make-obsolete 'x-make-face-bold-italic 'make-face-bold-italic) 360 (make-obsolete 'x-make-face-bold-italic 'make-face-bold-italic)
361 (make-obsolete 'x-make-face-unbold 'make-face-unbold) 361 (make-obsolete 'x-make-face-unbold 'make-face-unbold)
362 (make-obsolete 'x-make-face-unitalic 'make-face-unitalic) 362 (make-obsolete 'x-make-face-unitalic 'make-face-unitalic)
363 363
364
365 ;; Define some logical color names to be used when reading the pixmap files.
366 (if (featurep 'xpm)
367 (setq xpm-color-symbols
368 (list
369 (purecopy '("foreground" (face-foreground 'default)))
370 (purecopy '("background" (face-background 'default)))
371 (purecopy '("backgroundToolBarColor"
372 (or
373 (x-get-resource "backgroundToolBarColor"
374 "BackgroundToolBarColor" 'string)
375 (x-get-resource "background" "Background" 'string)
376 "Gray80")))
377 (purecopy '("foregroundToolBarColor"
378 (or
379 (x-get-resource "foregroundToolBarColor"
380 "ForegroundToolBarColor" 'string)
381 (x-get-resource "foreground" "Foreground" 'string)
382 "Black")))
383 )))
384 364
385 ;;; internal routines 365 ;;; internal routines
386 366
387 ;;; x-init-face-from-resources is responsible for initializing a 367 ;;; x-init-face-from-resources is responsible for initializing a
388 ;;; newly-created face from the resource database. 368 ;;; newly-created face from the resource database.