diff options
| author | Glenn Morris | 2009-08-31 01:33:11 +0000 |
|---|---|---|
| committer | Glenn Morris | 2009-08-31 01:33:11 +0000 |
| commit | 19b72ab7bca617b0d5b66ec80349d76c5e2a271c (patch) | |
| tree | 1e93ebb9a96afbce79f581e4eb23f362416ff416 | |
| parent | 3446bfc89c3e4b03a2a9a864f6a0e16e7a378d0a (diff) | |
| download | emacs-19b72ab7bca617b0d5b66ec80349d76c5e2a271c.tar.gz emacs-19b72ab7bca617b0d5b66ec80349d76c5e2a271c.zip | |
(apropos-symbols-internal): Handle (obsolete) face aliases.
| -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'." | |||
| 649 | (apropos-documentation-property | 649 | (apropos-documentation-property |
| 650 | symbol 'widget-documentation t)) | 650 | symbol 'widget-documentation t)) |
| 651 | (when (facep symbol) | 651 | (when (facep symbol) |
| 652 | (apropos-documentation-property | 652 | (let ((alias (get symbol 'face-alias))) |
| 653 | symbol 'face-documentation t)) | 653 | (if alias |
| 654 | (if (facep alias) | ||
| 655 | (format "%slias for the face `%s'." | ||
| 656 | (if (get symbol 'obsolete-face) | ||
| 657 | "Obsolete a" | ||
| 658 | "A") | ||
| 659 | alias) | ||
| 660 | ;; Never happens in practice because fails | ||
| 661 | ;; (facep symbol) test. | ||
| 662 | "(alias for undefined face)") | ||
| 663 | (apropos-documentation-property | ||
| 664 | symbol 'face-documentation t)))) | ||
| 654 | (when (get symbol 'custom-group) | 665 | (when (get symbol 'custom-group) |
| 655 | (apropos-documentation-property | 666 | (apropos-documentation-property |
| 656 | symbol 'group-documentation t))))) | 667 | symbol 'group-documentation t))))) |