Mercurial > emacs

changeset 104753:8debb6dffc0f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(apropos-symbols-internal): Handle (obsolete) face aliases.
author Glenn Morris <rgm@gnu.org>
date Mon, 31 Aug 2009 01:33:11 +0000
parents fcbe482879e0
children ab0d63f460aa
files lisp/apropos.el
diffstat 1 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/apropos.el	Mon Aug 31 01:32:58 2009 +0000
+++ b/lisp/apropos.el	Mon Aug 31 01:33:11 2009 +0000
@@ -649,8 +649,19 @@
 		   (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)))))