From xemacs-m  Fri Apr 25 14:59:16 1997
Received: from corona.pixar.com (corona.pixar.com [138.72.20.84])
	by xemacs.org (8.8.5/8.8.5) with SMTP id OAA09442
	for <xemacs-beta@xemacs.org>; Fri, 25 Apr 1997 14:59:15 -0500 (CDT)
Received: by corona.pixar.com (Smail3.1.29.1 #2)
	id m0wKr7b-0001bNC; Fri, 25 Apr 97 12:57 PDT
Sender: retnuh@pixar.com (Hunter Kelly)
Sender: retnuh@corona
To: Per Abrahamsen <abraham@dina.kvl.dk>
Cc: xemacs-beta@xemacs.org
Subject: Re: Patch: custom group support in apropos.el
References: <rjiv1bny77.fsf@zuse.dina.kvl.dk>
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
From: Hunter Kelly <retnuh@corona.pixar.com>
Date: 25 Apr 1997 12:57:31 -0700
In-Reply-To: Per Abrahamsen's message of 25 Apr 1997 13:23:08 +0200
Message-ID: <yvtvi5a27v8.fsf@corona.pixar.com>
Lines: 38
X-Mailer: Gnus v5.4.37/XEmacs 19.15

Does this work for Hyper Apropos as well?

H

Per Abrahamsen <abraham@dina.kvl.dk> writes:

> 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

