Mercurial > emacs
changeset 2111:d38d32084c15
* simple.el (kill-ring-save): Doc fix.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 11 Mar 1993 07:07:17 +0000 |
| parents | 2c87b7e144c0 |
| children | 79865d704b20 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Thu Mar 11 07:06:01 1993 +0000 +++ b/lisp/simple.el Thu Mar 11 07:07:17 1993 +0000 @@ -1018,7 +1018,11 @@ nil) (defun kill-ring-save (beg end) - "Save the region as if killed, but don't kill it." + "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. +If `interprogram-cut-function' is non-nil, also save the text for a window +system cut and paste." (interactive "r") (copy-region-as-kill beg end) (if (interactive-p) @@ -1067,7 +1071,8 @@ (delete-region (point) (mark)) (set-mark (point)) (insert (current-kill arg)) - (if before (exchange-point-and-mark)))) + (if before (exchange-point-and-mark))) + nil) (defun yank (&optional arg) "Reinsert the last stretch of killed text. @@ -1084,7 +1089,8 @@ ((eq arg '-) -1) (t (1- arg))))) (if (consp arg) - (exchange-point-and-mark))) + (exchange-point-and-mark)) + nil) (defun rotate-yank-pointer (arg) "Rotate the yanking point in the kill ring.