From 0e2648474eb4f0aae21fe572738cae7cd8559ada Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 21 Dec 1997 01:52:31 +0000 Subject: [PATCH] (copy-region-as-kill): Deactivate mark in transient-mark-mode. (copy-region-as-kill, kill-ring-save): Doc fixes. --- lisp/simple.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 43b3c683c58..67726a8f6c3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1469,20 +1469,25 @@ to make one entry in the kill ring." ;; then corrects it with the intended C-w. (defun copy-region-as-kill (beg end) "Save the region as if killed, but don't kill it. +In Transient Mark mode, deactivate the mark. If `interprogram-cut-function' is non-nil, also save the text for a window system cut and paste." (interactive "r") (if (eq last-command 'kill-region) (kill-append (buffer-substring beg end) (< end beg)) (kill-new (buffer-substring beg end))) + (if transient-mark-mode + (setq mark-active nil)) nil) (defun kill-ring-save (beg end) "Save the region as if killed, but don't kill it. -This command is similar to `copy-region-as-kill', except that it gives -visual feedback indicating the extent of the region being copied. +In Transient Mark mode, deactivate the mark. If `interprogram-cut-function' is non-nil, also save the text for a window -system cut and paste." +system cut and paste. + +This command is similar to `copy-region-as-kill', except that it gives +visual feedback indicating the extent of the region being copied." (interactive "r") (copy-region-as-kill beg end) (if (interactive-p) -- 2.39.2