(copy-region-as-kill): Don't set this-command.

diff --git a/lisp/simple.el b/lisp/simple.el
index 197e4e3df44379a028934e92ae5da5d62f315b99..0c54a896b688c7ba5305e57a6302988cd6f5e2a5 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1147,7 +1147,6 @@ system cut and paste."
   (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)