(custom-variable-prompt): Set the default value arg of completing-read.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 40e26834c83e2c8e63e0309bc094e08d1c31b8f2..89c6d6297c1d1c8272b10c5c2907df86cafb5f12 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -493,11 +493,12 @@ Return a list suitable for use in `interactive'."
    (let ((v (variable-at-point))
         (enable-recursive-minibuffers t)
         val)
-     (setq val (completing-read
-               (if (and (symbolp v) (custom-variable-p v))
-                   (format "Customize option (default %s): " v)
-                 "Customize option: ")
-               obarray 'custom-variable-p t))
+     (setq val (if (and (symbolp v) (custom-variable-p v))
+                  (completing-read
+                   (format "Customize option (default %s): " v) obarray
+                   'custom-variable-p t nil nil (symbol-name v))
+                (completing-read "Customize option: " obarray
+                                 'custom-variable-p t)))
      (list (if (equal val "")
               (if (symbolp v) v nil)
             (intern val)))))