From: Jambunathan K Date: Sat, 6 Oct 2012 17:16:26 +0000 (-0400) Subject: * lisp/register.el (append-to-register, prepend-to-register): X-Git-Tag: emacs-24.2.90~239^2~33 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5694896dfc322e90c0e7e064002cf25296394d75;p=emacs.git * lisp/register.el (append-to-register, prepend-to-register): Deactivate mark, as does `copy-to-register'. Fixes: debbugs:12389 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5d93a386a21..6235f9f28ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-10-06 Jambunathan K + + * register.el (append-to-register, prepend-to-register): + Deactivate mark, as does `copy-to-register' (bug#12389). + 2012-10-06 Chong Yidong * files.el (auto-mode-alist): Add .by and .wy (Semantic grammars). @@ -68,7 +73,7 @@ (python-fill-decorator-function, python-fill-paren-function): Remove :safe for defcustoms. (python-fill-string-style): New defcustom - (python-fill-paragraph-function): Enhanced context detection. + (python-fill-paragraph-function): Enhance context detection. (python-fill-string): Honor python-fill-string-style settings. 2012-10-04 Martin Rudalics @@ -100,8 +105,8 @@ 2012-10-02 Chong Yidong - * progmodes/hideif.el (hif-lookup, hif-defined): Handle - semantic-c-takeover-hideif. + * progmodes/hideif.el (hif-lookup, hif-defined): + Handle semantic-c-takeover-hideif. 2012-10-02 Paul Eggert @@ -117,8 +122,8 @@ 2012-10-02 Sergio Durigan Junior (tiny change) - * net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result): Fix - querying BBDB for entries without a last name (Bug#11580). + * net/eudcb-bbdb.el (eudc-bbdb-format-record-as-result): + Fix querying BBDB for entries without a last name (Bug#11580). 2012-10-02 Chong Yidong diff --git a/lisp/register.el b/lisp/register.el index fb35a26a653..7c2d9337fa2 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -382,6 +382,7 @@ START and END are buffer positions indicating what to append." register (cond ((not reg) text) ((stringp reg) (concat reg separator text)) (t (error "Register does not contain text"))))) + (setq deactivate-mark t) (cond (delete-flag (delete-region start end)) ((called-interactively-p 'interactive) @@ -400,6 +401,7 @@ START and END are buffer positions indicating what to prepend." register (cond ((not reg) text) ((stringp reg) (concat text separator reg)) (t (error "Register does not contain text"))))) + (setq deactivate-mark t) (cond (delete-flag (delete-region start end)) ((called-interactively-p 'interactive)