[Emacs-diffs] /srv/bzr/emacs/trunk r110386: * lisp/register.el (append-to-register, prepend-to-register):

[Stefan Monnier]

------------------------------------------------------------
revno: 110386
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12389
author: Jambunathan K <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2012-10-06 13:16:26 -0400
message:
  * lisp/register.el (append-to-register, prepend-to-register):
  Deactivate mark, as does `copy-to-register'.
modified:
  lisp/ChangeLog
  lisp/register.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-06 14:18:35 +0000
+++ b/lisp/ChangeLog    2012-10-06 17:16:26 +0000
@@ -1,3 +1,8 @@
+2012-10-06  Jambunathan K  <address@hidden>
+
+       * register.el (append-to-register, prepend-to-register):
+       Deactivate mark, as does `copy-to-register' (bug#12389).
+
 2012-10-06  Chong Yidong  <address@hidden>
 
        * 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  <address@hidden>
@@ -100,8 +105,8 @@
 
 2012-10-02  Chong Yidong  <address@hidden>
 
-       * 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  <address@hidden>
 
@@ -117,8 +122,8 @@
 
 2012-10-02  Sergio Durigan Junior  <address@hidden>  (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  <address@hidden>
 

=== modified file 'lisp/register.el'
--- a/lisp/register.el  2012-09-09 08:10:56 +0000
+++ b/lisp/register.el  2012-10-06 17:16:26 +0000
@@ -382,6 +382,7 @@
      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 @@
      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)