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

4 files changed, 15 insertions, 2 deletions

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 42bd7cb40d1..a57605be64d 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,7 @@
+2014-09-14  Daniel Colascione  <dancol@dancol.org>
+
+        * NEWS: Mention changes to `insert-register'
+
 2014-09-13  Christopher Schmidt  <ch@ristopher.com>
 
         * NEWS: Mention nil `calendar-mode-line-format' will not modify
diff --git a/etc/NEWS b/etc/NEWS
index e89d9c96fdc..95f578ce11d 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -49,6 +49,9 @@ Use './configure PKG_CONFIG=/full/name/of/pkg-config' if you need to.
 
 * Changes in Emacs 24.5
 
+** `insert-register' now leaves point after the inserted text
+when called interactively.  A prefix argument toggles this behavior.
+
 ** New var `truncate-string-ellipsis' to choose how to indicate truncation.
 
 ---
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