diff lisp/simple.el @ 21193:20bba919ec72

(copy-region-as-kill): Set deactivate-mark instead of clearing mark-active directly.
author Richard M. Stallman <rms@gnu.org>
date Mon, 16 Mar 1998 08:01:15 +0000
parents e260c4389363
children 4824e5e6d88a
line wrap: on
line diff
--- a/lisp/simple.el	Mon Mar 16 05:58:11 1998 +0000
+++ b/lisp/simple.el	Mon Mar 16 08:01:15 1998 +0000
@@ -1661,7 +1661,7 @@
       (kill-append (buffer-substring beg end) (< end beg))
     (kill-new (buffer-substring beg end)))
   (if transient-mark-mode 
-      (setq mark-active nil))
+      (setq deactivate-mark t))
   nil)
 
 (defun kill-ring-save (beg end)