From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 26 Jun 2013 00:50:50 +0000 (-0400)
Subject: * lisp/simple.el (set-variable): Use read-from-minibuffer.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1992^2~31
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a343d218fd889e57ab80565815366734fb606b37;p=emacs.git

* lisp/simple.el (set-variable): Use read-from-minibuffer.

Fixes: debbugs:14710
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ac3a0f2b92..4cd17401bdd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2013-06-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* simple.el (set-variable): Use read-from-minibuffer (bug#14710).
+
 	* emacs-lisp/package.el (package--add-to-archive-contents): Add missing
 	nil terminate the loop (bug#14718).
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 363ce8407e6..61f32363dbe 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6448,10 +6448,10 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally."
                      (call-interactively `(lambda (arg)
                                             (interactive ,prop)
                                             arg))
-                   (read
-                    (read-string prompt nil
-                                 'set-variable-value-history
-				 (format "%S" (symbol-value var))))))))
+                   (read-from-minibuffer prompt nil
+                                         read-expression-map t
+                                         'set-variable-value-history
+                                         (format "%S" (symbol-value var)))))))
      (list var val current-prefix-arg)))
 
   (and (custom-variable-p variable)