diff options
| author | Roland McGrath | 1993-07-08 22:42:14 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-07-08 22:42:14 +0000 |
| commit | e4e593ae57292725cebc42c869f6fa0c27488770 (patch) | |
| tree | dc3d1ccf16ffae2e9039814d3ba71e455c489494 | |
| parent | 0d28f0725d75b9a50e73d9c98d15fbb8ab7f402b (diff) | |
| download | emacs-e4e593ae57292725cebc42c869f6fa0c27488770.tar.gz emacs-e4e593ae57292725cebc42c869f6fa0c27488770.zip | |
(kill-ring-save): Call deactivate-mark regardless of transient-mark-mode.
| -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 f69efad6872..dfca44cffc6 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1094,7 +1094,7 @@ system cut and paste." | |||
| 1094 | (goto-char opoint) | 1094 | (goto-char opoint) |
| 1095 | ;; If user quit, deactivate the mark | 1095 | ;; If user quit, deactivate the mark |
| 1096 | ;; as C-g would as a command. | 1096 | ;; as C-g would as a command. |
| 1097 | (and quit-flag transient-mark-mode mark-active | 1097 | (and quit-flag mark-active |
| 1098 | (progn | 1098 | (progn |
| 1099 | (message "foo") ;XXX what is this here for? --roland | 1099 | (message "foo") ;XXX what is this here for? --roland |
| 1100 | (deactivate-mark)))) | 1100 | (deactivate-mark)))) |