diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-25 18:10:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-25 18:10:43 +0000 |
| commit | 2be7e3fa335d8ff9b0067d4d09e93acaefac2288 (patch) | |
| tree | 9237ec1224991be8fd611b781708a846e20a3350 /lisp/apropos.el | |
| parent | 8228e3736ba7a8b356b6fc7f1b7f6ad6dffe6a36 (diff) | |
| download | emacs-2be7e3fa335d8ff9b0067d4d09e93acaefac2288.tar.gz | |
(apropos): Add support for customization groups.
(apropos-print): Ditto.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 7 |
1 files changed, 7 insertions, 0 deletions
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 |