From: Juri Linkov <juri@jurta.org>
Date: Mon, 14 Nov 2005 18:28:12 +0000 (+0000)
Subject: (custom-variable-prompt): Set the default value arg of completing-read.
X-Git-Tag: emacs-pretest-22.0.90~5913
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e46e522524447e5739161d2ec9f944e4c41a2bd8;p=emacs.git

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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 40e26834c83..89c6d6297c1 100644
--- 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)))))