Mercurial > hg > xemacs-beta

comparison lisp/faces.el @ 3918:049dc907c17a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-04-22 19:58:27 by aidan] Make the X11 font menu work again, server side X11 with Mule.
author aidan
date Sun, 22 Apr 2007 19:58:59 +0000
parents 98af8a976fc3
children 38ef5a6da799
comparison
equal deleted inserted replaced
3917:b8ded6c3f2a4 3918:049dc907c17a
396 WARNING: Be absolutely sure you want to do this!!! It is a dangerous 396 WARNING: Be absolutely sure you want to do this!!! It is a dangerous
397 operation and is not undoable. 397 operation and is not undoable.
398 398
399 The arguments LOCALE, TAG-SET and EXACT-P are the same as for 399 The arguments LOCALE, TAG-SET and EXACT-P are the same as for
400 `remove-specifier'." 400 `remove-specifier'."
401 (mapc (lambda (x) 401 ;; Don't reset the default face.
402 (remove-specifier (face-property face x) locale tag-set exact-p)) 402 (unless (eq 'default face)
403 built-in-face-specifiers) 403 (dolist (x built-in-face-specifiers nil)
404 nil) 404 (remove-specifier (face-property face x) locale tag-set exact-p))))
405 405
406 (defun set-face-parent (face parent &optional locale tag-set how-to-add) 406 (defun set-face-parent (face parent &optional locale tag-set how-to-add)
407 "Set the parent of FACE to PARENT, for all properties. 407 "Set the parent of FACE to PARENT, for all properties.
408 This makes all properties of FACE inherit from PARENT." 408 This makes all properties of FACE inherit from PARENT."
409 (setq parent (get-face parent)) 409 (setq parent (get-face parent))