* register.el (insert-register): Fix 2013-10-07T01:28:34Z!sdl.web@gmail.com.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c7d61dff4848b0ba5a1dfdc7c9f09365c8e54f5..a15e512086db24cdcdd633e70b830996781b33fb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-10-08  Bastien Guerry  <bzg@gnu.org>
+
+       * register.el (insert-register): Fix 2013-10-07T01:28:34Z!sdl.web@gmail.com.
+
 2013-10-08  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/perl-mode.el: Use lexical-binding.

diff --git a/lisp/register.el b/lisp/register.el
index 88b309b2d89e2d00302e92f2e08d7dbc82aa7f0e..2e22502cfeb5fe959217df51d9541dadd3fb7104 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -395,8 +395,8 @@ If optional second arg is non-nil, puts mark before and point after.
 Interactively, second arg is non-nil if prefix arg is supplied."
   (interactive (progn
                 (barf-if-buffer-read-only)
-                (register-read-with-preview "Insert register: ")
-                current-prefix-arg))
+                (list (register-read-with-preview "Insert register: ")
+                      current-prefix-arg)))
   (push-mark)
   (let ((val (get-register register)))
     (cond