Mercurial > emacs
changeset 20484:089c85c48eab
(copy-region-as-kill): Deactivate mark in transient-mark-mode.
(copy-region-as-kill, kill-ring-save): Doc fixes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 21 Dec 1997 01:52:31 +0000 |
| parents | 141c2d41d39c |
| children | d0b44114ca63 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sun Dec 21 01:49:03 1997 +0000 +++ b/lisp/simple.el Sun Dec 21 01:52:31 1997 +0000 @@ -1469,20 +1469,25 @@ ;; 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. +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. + This command is similar to `copy-region-as-kill', except that it gives -visual feedback indicating the extent of the region being copied. -If `interprogram-cut-function' is non-nil, also save the text for a window -system cut and paste." +visual feedback indicating the extent of the region being copied." (interactive "r") (copy-region-as-kill beg end) (if (interactive-p)