From xemacs-m  Fri Apr 25 06:23:12 1997
Received: from elc1.dina.kvl.dk (elc1.dina.kvl.dk [130.225.40.228])
	by xemacs.org (8.8.5/8.8.5) with SMTP id GAA01903
	for <xemacs-beta@xemacs.org>; Fri, 25 Apr 1997 06:23:11 -0500 (CDT)
Received: from zuse.dina.kvl.dk (zuse.dina.kvl.dk [130.225.40.245]) by elc1.dina.kvl.dk (8.6.12/8.6.4) with ESMTP id NAA22061; Fri, 25 Apr 1997 13:22:42 +0200
Received: (abraham@localhost) by zuse.dina.kvl.dk (8.6.12/8.6.4) id NAA05742; Fri, 25 Apr 1997 13:23:09 +0200
To: xemacs-beta@xemacs.org
Subject: Patch: custom group support in apropos.el
Organization: The Church of Emacs
X-Face: +kRV2]2q}lixHkE{U)mY#+6]{AH=yN~S9@IFiOa@X6?GM<U{B+4e{k79.Ya{~':DblFPCg$
 @60,BfLv2@SKZ19cMWK0/C'v;tM:|6B'R}U1rp6CL&kN({9<zF/V{:JCg27yC)9oZjeqcQawzKfiNL
 t9}`vjmK["dRQC/qGFQq"%u|Q`:6{"Rz}b(dnl_"3$Jtqimi>|8MBp/
From: Per Abrahamsen <abraham@dina.kvl.dk>
Date: 25 Apr 1997 13:23:08 +0200
Message-ID: <rjiv1bny77.fsf@zuse.dina.kvl.dk>
Lines: 33
X-Mailer: Gnus v5.4.46/Emacs 19.34
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit


This is for 2.3, since it requires a recent version of custom.

Fri Apr 25 13:21:46 1997  Per Abrahamsen  <abraham@dina.kvl.dk>

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

--- apropos.el.orig	Fri Apr 11 18:21:56 1997
+++ apropos.el	Fri Apr 25 12:52:56 1997
@@ -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

