From 19b72ab7bca617b0d5b66ec80349d76c5e2a271c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 31 Aug 2009 01:33:11 +0000 Subject: [PATCH] (apropos-symbols-internal): Handle (obsolete) face aliases. --- lisp/apropos.el | 15 +++++++++++++-- 1 file 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))))) -- 2.39.2