[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp faces.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp faces.el |
Date: |
Sun, 11 Jan 2009 17:27:37 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/01/11 17:27:37
Modified files:
lisp : faces.el
Log message:
(describe-face): Ignore anonymous faces.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/faces.el?cvsroot=emacs&r1=1.436&r2=1.437
Patches:
Index: faces.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/faces.el,v
retrieving revision 1.436
retrieving revision 1.437
diff -u -b -r1.436 -r1.437
--- faces.el 10 Jan 2009 12:55:24 -0000 1.436
+++ faces.el 11 Jan 2009 17:27:37 -0000 1.437
@@ -1357,6 +1357,10 @@
(set-buffer standard-output)
(dolist (f face)
(if (stringp f) (setq f (intern f)))
+ ;; We may get called for anonymous faces (i.e., faces
+ ;; expressed using prop-value plists). Those can't be
+ ;; usefully customized, so ignore them.
+ (when (symbolp f)
(insert "Face: " (symbol-name f))
(if (not (facep f))
(insert " undefined face.\n")
@@ -1396,7 +1400,7 @@
(re-search-backward ": \\([^:]+\\)" nil t)
(help-xref-button 1 'help-face attr)))
(insert "\n")))))
- (terpri))))))
+ (terpri)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;