Mercurial > emacs
diff lisp/apropos.el @ 104753:8debb6dffc0f
(apropos-symbols-internal): Handle (obsolete) face aliases.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Mon, 31 Aug 2009 01:33:11 +0000 |
parents | 2e0765155e47 |
children | 5532cc06be89 |
line wrap: on
line diff
--- a/lisp/apropos.el Mon Aug 31 01:32:58 2009 +0000 +++ b/lisp/apropos.el Mon Aug 31 01:33:11 2009 +0000 @@ -649,8 +649,19 @@ (apropos-documentation-property symbol 'widget-documentation t)) (when (facep symbol) - (apropos-documentation-property - symbol 'face-documentation t)) + (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)))) (when (get symbol 'custom-group) (apropos-documentation-property symbol 'group-documentation t)))))