[Emacs-diffs] emacs/lisp apropos.el

[Glenn Morris]

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)))))