mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(apropos): Add support for customization groups.

Browse source 
(apropos-print): Ditto.
This commit is contained in:
Richard M. Stallman 1997-04-25 18:10:43 +00:00
parent 8228e3736b
commit 2be7e3fa33
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/apropos.el
View file

@ -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