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

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c7d61dff48..a15e512086d 100644
--- 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 88b309b2d89..2e22502cfeb 100644
--- 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