diff options
| author | Richard M. Stallman | 1994-11-09 20:18:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-11-09 20:18:34 +0000 |
| commit | b7a1e68a4e8de82fc8095f0958b96c1aaf37d177 (patch) | |
| tree | 9dd3d708eb3bd69d4d9d22d459f3141435124424 | |
| parent | b662fbb8b8c560eface362916349a4380e73e466 (diff) | |
| download | emacs-b7a1e68a4e8de82fc8095f0958b96c1aaf37d177.tar.gz emacs-b7a1e68a4e8de82fc8095f0958b96c1aaf37d177.zip | |
(copy-region-as-kill): Don't set this-command.
| -rw-r--r-- | lisp/simple.el | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 197e4e3df44..0c54a896b68 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1147,7 +1147,6 @@ system cut and paste." | |||
| 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) |