# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 784412314 0
# Node ID 5b91dec229a3cda63cdf89f71548ec8254c7abbe
# Parent  ae7a27dc719d59eaed8b4a27e2b04ca726c341c4
(copy-region-as-kill): Don't set this-command.

diff -r ae7a27dc719d -r 5b91dec229a3 lisp/simple.el
--- a/lisp/simple.el	Wed Nov 09 12:57:30 1994 +0000
+++ b/lisp/simple.el	Wed Nov 09 20:18:34 1994 +0000
@@ -1147,7 +1147,6 @@
   (if (eq last-command 'kill-region)
       (kill-append (buffer-substring beg end) (< end beg))
     (kill-new (buffer-substring beg end)))
-  (setq this-command 'kill-region)
   nil)
 
 (defun kill-ring-save (beg end)