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

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 42bd7cb40d1c452b65b1735406344836e40d1a47..a57605be64d49700d35bbd9f97715f6a07a820d1 100644 (file)
--- 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 e89d9c96fdc77482f5c17a32021b956066d6dc0d..95f578ce11dcb665a13e397c6c5424dd4c3add18 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -49,6 +49,9 @@ Use './configure PKG_CONFIG=/full/name/of/pkg-config' if you need to.
 \f
 * 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 35df2c5bf1754c10b46cd0dacd74b3c3c608977e..b9990cbe594df32fbc637754e5d3d238df85ec23 100644 (file)
--- 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 eb3c71afecec6e1ab6fe9ac0cd42a25f85b8bbaa..ffa3c954ed21801e1fdff9f824a9d5485443918b 100644 (file)
--- 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