Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/faces.el	Sun Apr 22 09:24:12 2007 +0000
+++ b/lisp/faces.el	Sun Apr 22 19:58:59 2007 +0000
@@ -398,10 +398,10 @@
 
 The arguments LOCALE, TAG-SET and EXACT-P are the same as for
 `remove-specifier'."
-  (mapc (lambda (x)
-	  (remove-specifier (face-property face x) locale tag-set exact-p))
-	built-in-face-specifiers)
-  nil)
+  ;; Don't reset the default face. 
+  (unless (eq 'default face)
+    (dolist (x built-in-face-specifiers nil)
+      (remove-specifier (face-property face x) locale tag-set exact-p))))
 
 (defun set-face-parent (face parent &optional locale tag-set how-to-add)
   "Set the parent of FACE to PARENT, for all properties.