diff options
| author | Richard M. Stallman | 1998-03-16 08:01:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-16 08:01:15 +0000 |
| commit | 5c7319b6cecffa5b099a2c265c50b5d87f26d795 (patch) | |
| tree | f370102a702c30090c6341acf17ea0424cccd288 | |
| parent | 1ad59104de471e09f6586f367cbba60bc2f03a93 (diff) | |
| download | emacs-5c7319b6cecffa5b099a2c265c50b5d87f26d795.tar.gz emacs-5c7319b6cecffa5b099a2c265c50b5d87f26d795.zip | |
(copy-region-as-kill): Set deactivate-mark
instead of clearing mark-active directly.
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index be60e3c8f73..42ef85aa870 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1661,7 +1661,7 @@ system cut and paste." | |||
| 1661 | (kill-append (buffer-substring beg end) (< end beg)) | 1661 | (kill-append (buffer-substring beg end) (< end beg)) |
| 1662 | (kill-new (buffer-substring beg end))) | 1662 | (kill-new (buffer-substring beg end))) |
| 1663 | (if transient-mark-mode | 1663 | (if transient-mark-mode |
| 1664 | (setq mark-active nil)) | 1664 | (setq deactivate-mark t)) |
| 1665 | nil) | 1665 | nil) |
| 1666 | 1666 | ||
| 1667 | (defun kill-ring-save (beg end) | 1667 | (defun kill-ring-save (beg end) |