(apropos): Add support for customization groups.

(apropos-print): Ditto.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index aadf72d910afd869d610f8314f34c993f778ce46..6729e4a4c6a9a8081e9a98f09bd10d284a0d4312 100644 (file)
--- 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