procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/register.el (append-to-register, prepend-to-register):

Browse source 
Deactivate mark, as does `copy-to-register'.

Fixes: debbugs:12389
This commit is contained in:
Jambunathan K 2012-10-06 13:16:26 -04:00 • committed by Stefan Monnier
parent 50d92e32c2
commit 5694896dfc
2 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ChangeLog
View file

@ -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>

2
lisp/register.el
View file

@ -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)