Mercurial > hg > xemacs-beta

diff lisp/packages/apropos.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 9b50b4588a93
children 929b76928fce
line wrap: on
line diff
--- a/lisp/packages/apropos.el	Mon Aug 13 09:35:15 2007 +0200
+++ b/lisp/packages/apropos.el	Mon Aug 13 09:36:16 2007 +0200
@@ -252,7 +252,13 @@
 			(if (setq doc (face-doc-string symbol))
 			    (substring doc 0
 				       (string-match "\n" doc))
-			  "(not documented)"))))
+			  "(not documented)"))
+		    (when (get symbol 'custom-group)
+		      (if (setq doc (documentation-property
+				     symbol 'group-documentation t))
+			  (substring doc 0
+				     (string-match "\n" doc))
+			"(not documented)"))))
 	 (setq p (cdr p)))))
    nil))
 
@@ -576,6 +582,7 @@
 				 "User Option" do-keys)
 	    (apropos-print-doc 'describe-variable 2
 			       "Variable" do-keys))
+	  (apropos-print-doc 'customize-other-window 6 "Group" do-keys)
 	  (apropos-print-doc 'customize-face-other-window 5 "Face" do-keys)
 	  (apropos-print-doc 'widget-browse-other-window 4 "Widget" do-keys)
 	  (apropos-print-doc 'apropos-describe-plist 3