* 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 5d93a386a212f9bc52e7d85395f3ed00e7c9329e..6235f9f28ca6cb11468d21b0d372f8a84eee9671 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-10-06  Jambunathan K  <kjambunathan@gmail.com>
+
+       * register.el (append-to-register, prepend-to-register):
+       Deactivate mark, as does `copy-to-register' (bug#12389).
+
 2012-10-06  Chong Yidong  <cyd@gnu.org>
 
        * 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  <rudalics@gmx.at>
@@ -100,8 +105,8 @@
 
 2012-10-02  Chong Yidong  <cyd@gnu.org>
 
-       * 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  <eggert@cs.ucla.edu>
 
@@ -117,8 +122,8 @@
 
 2012-10-02  Sergio Durigan Junior  <sergiodj@riseup.net>  (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  <cyd@gnu.org>
 

diff --git a/lisp/register.el b/lisp/register.el
index fb35a26a6533a7fda6fba7498ba9493b0149e62f..7c2d9337fa245dba6c0880fc0b2317feedb55a1c 100644 (file)
--- 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)