[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp apropos.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp apropos.el |
Date: |
Mon, 31 Aug 2009 01:33:12 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/08/31 01:33:11
Modified files:
lisp : apropos.el
Log message:
(apropos-symbols-internal): Handle (obsolete) face aliases.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/apropos.el?cvsroot=emacs&r1=1.140&r2=1.141
Patches:
Index: apropos.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/apropos.el,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -b -r1.140 -r1.141
--- apropos.el 21 Aug 2009 07:24:29 -0000 1.140
+++ apropos.el 31 Aug 2009 01:33:11 -0000 1.141
@@ -649,8 +649,19 @@
(apropos-documentation-property
symbol 'widget-documentation t))
(when (facep symbol)
+ (let ((alias (get symbol 'face-alias)))
+ (if alias
+ (if (facep alias)
+ (format "%slias for the face `%s'."
+ (if (get symbol 'obsolete-face)
+ "Obsolete a"
+ "A")
+ alias)
+ ;; Never happens in practice because fails
+ ;; (facep symbol) test.
+ "(alias for undefined face)")
(apropos-documentation-property
- symbol 'face-documentation t))
+ symbol 'face-documentation t))))
(when (get symbol 'custom-group)
(apropos-documentation-property
symbol 'group-documentation t)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp apropos.el,
Glenn Morris <=