From 5c7319b6cecffa5b099a2c265c50b5d87f26d795 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 16 Mar 1998 08:01:15 +0000
Subject: (copy-region-as-kill): Set deactivate-mark instead of clearing
 mark-active directly.

---
 lisp/simple.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/simple.el b/lisp/simple.el
index be60e3c8f7..42ef85aa87 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1661,7 +1661,7 @@ system cut and paste."
       (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)
-- 
cgit v1.2.3