[Emacs-diffs] trunk r113183: * lisp/simple.el (set-variable): Use read-from-minibuffer.

[Stefan Monnier]

------------------------------------------------------------
revno: 113183
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14710
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-25 20:50:50 -0400
message:
  * lisp/simple.el (set-variable): Use read-from-minibuffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-26 00:44:35 +0000
+++ b/lisp/ChangeLog    2013-06-26 00:50:50 +0000
@@ -1,5 +1,7 @@
 2013-06-26  Stefan Monnier  <address@hidden>
 
+       * 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).
 

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2013-06-18 20:24:44 +0000
+++ b/lisp/simple.el    2013-06-26 00:50:50 +0000
@@ -6448,10 +6448,10 @@
                      (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)