From: Glenn Morris <rgm@gnu.org>
Date: Mon, 31 Aug 2009 01:33:11 +0000 (+0000)
Subject: (apropos-symbols-internal): Handle (obsolete) face aliases.
X-Git-Tag: emacs-pretest-23.1.90~1562
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19b72ab7bca617b0d5b66ec80349d76c5e2a271c;p=emacs.git

(apropos-symbols-internal): Handle (obsolete) face aliases.
---

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