* register.el (insert-register): Change default interactive insertion mode.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 35df2c5bf17..b9990cbe594 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-09-14  Daniel Colascione  <dancol@dancol.org>
+
+        * register.el (insert-register): Change default interactive
+        insertion mode.
+
 2014-09-14  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/tramp-cache.el (tramp-flush-file-function): Simplify check.
diff --git a/lisp/register.el b/lisp/register.el
index eb3c71afece..ffa3c954ed2 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -425,13 +425,14 @@ Interactively, reads the register using `register-read-with-preview'."
   "Insert contents of register REGISTER.  (REGISTER is a character.)
 Normally puts point before and mark after the inserted text.
 If optional second arg is non-nil, puts mark before and point after.
-Interactively, second arg is non-nil if prefix arg is supplied.
+Interactively, second arg is nil if prefix arg is supplied and t
+otherwise.
 
 Interactively, reads the register using `register-read-with-preview'."
   (interactive (progn
                  (barf-if-buffer-read-only)
                  (list (register-read-with-preview "Insert register: ")
-                       current-prefix-arg)))
+                       (not current-prefix-arg))))
   (push-mark)
   (let ((val (get-register register)))
     (cond