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