From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 25 Apr 1997 18:10:43 +0000 (+0000)
Subject: (apropos): Add support for customization groups.
X-Git-Tag: emacs-20.1~2386
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2be7e3fa335d8ff9b0067d4d09e93acaefac2288;p=emacs.git

(apropos): Add support for customization groups.
(apropos-print): Ditto.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index aadf72d910a..6729e4a4c6a 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -215,6 +215,12 @@ Returns list of symbols and documentation found."
 				     symbol 'face-documentation t))
 			  (substring doc 0
 				     (string-match "\n" doc))
+			"(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))
@@ -535,6 +541,7 @@ found."
 				 "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