From 5ce52d05c93e0c006bbd145b938aa9fab7dfcb8d Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Sun, 14 Sep 2014 16:11:52 -0700 Subject: [PATCH] * register.el (insert-register): Change default interactive insertion mode. --- etc/ChangeLog | 4 ++++ etc/NEWS | 3 +++ lisp/ChangeLog | 5 +++++ lisp/register.el | 5 +++-- 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 + + * NEWS: Mention changes to `insert-register' + 2014-09-13 Christopher Schmidt * 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 + + * register.el (insert-register): Change default interactive + insertion mode. + 2014-09-14 Michael Albinus * 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 -- 2.39.5