diff options
| author | Jambunathan K <kjambunathan@gmail.com> | 2012-10-06 13:16:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-06 13:16:26 -0400 |
| commit | 5694896dfc322e90c0e7e064002cf25296394d75 (patch) | |
| tree | fefaf90f909c43b10eddf63ce11e9e61239bb7ab /lisp/register.el | |
| parent | 50d92e32c2770a98fed777e3a676fca1205d28ae (diff) | |
| download | emacs-5694896dfc322e90c0e7e064002cf25296394d75.tar.gz | |
* lisp/register.el (append-to-register, prepend-to-register):
Deactivate mark, as does `copy-to-register'.
Fixes: debbugs:12389
Diffstat (limited to 'lisp/register.el')
| -rw-r--r-- | lisp/register.el | 2 |
1 files changed, 2 insertions, 0 deletions
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) |