Improve 'customize-read-group'

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index c448ebefd345f4e82714b5c5dca672ccdd83c7b4..ea59650fa8707c7993c74fb29f786bedcf0d1483 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1173,14 +1173,20 @@ for the MODE to customize."
   (customize-group (custom-group-of-mode mode)))
 
 (defun customize-read-group ()
-  (let ((completion-ignore-case t))
-    (completing-read (format-prompt "Customize group" "emacs")
+  (let* ((sym (symbol-at-point))
+         (def (or (and sym
+                       (or (and (get sym 'custom-loads)
+                                (not (get sym 'custom-autoload)))
+                           (get sym 'custom-group))
+                       (symbol-name sym))
+                  "emacs")))
+    (completing-read (format-prompt "Customize group" def)
                      obarray
                      (lambda (symbol)
                        (or (and (get symbol 'custom-loads)
                                 (not (get symbol 'custom-autoload)))
                            (get symbol 'custom-group)))
-                     t)))
+                     t nil nil def)))
 
 ;;;###autoload
 (defun customize-group (&optional group other-window)