diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-08-31 01:33:11 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-08-31 01:33:11 +0000 |
| commit | 19b72ab7bca617b0d5b66ec80349d76c5e2a271c (patch) | |
| tree | 1e93ebb9a96afbce79f581e4eb23f362416ff416 /lisp/apropos.el | |
| parent | 3446bfc89c3e4b03a2a9a864f6a0e16e7a378d0a (diff) | |
| download | emacs-19b72ab7bca617b0d5b66ec80349d76c5e2a271c.tar.gz | |
(apropos-symbols-internal): Handle (obsolete) face aliases.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index ca9be2f36f8..68721eb05a8 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -649,8 +649,19 @@ thus be found in `load-history'." (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))))) |