Mercurial > emacs
comparison lisp/simple.el @ 9870:5b91dec229a3
(copy-region-as-kill): Don't set this-command.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 09 Nov 1994 20:18:34 +0000 |
| parents | 6a9a8abb0b6e |
| children | 75ecf866cfb8 |
comparison
equal
deleted
inserted
replaced
| 9869:ae7a27dc719d | 9870:5b91dec229a3 |
|---|---|
| 1145 system cut and paste." | 1145 system cut and paste." |
| 1146 (interactive "r") | 1146 (interactive "r") |
| 1147 (if (eq last-command 'kill-region) | 1147 (if (eq last-command 'kill-region) |
| 1148 (kill-append (buffer-substring beg end) (< end beg)) | 1148 (kill-append (buffer-substring beg end) (< end beg)) |
| 1149 (kill-new (buffer-substring beg end))) | 1149 (kill-new (buffer-substring beg end))) |
| 1150 (setq this-command 'kill-region) | |
| 1151 nil) | 1150 nil) |
| 1152 | 1151 |
| 1153 (defun kill-ring-save (beg end) | 1152 (defun kill-ring-save (beg end) |
| 1154 "Save the region as if killed, but don't kill it. | 1153 "Save the region as if killed, but don't kill it. |
| 1155 This command is similar to `copy-region-as-kill', except that it gives | 1154 This command is similar to `copy-region-as-kill', except that it gives |