From: Kim F. Storm <storm@cua.dk>
Date: Fri, 19 Oct 2001 23:25:34 +0000 (+0000)
Subject: Don't let kill-ring-save show extent if transient-mark-mode and region
X-Git-Tag: ttn-vms-21-2-B4~19339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db6f8ff1255afd890b76979f58b475b74298183a;p=emacs.git

Don't let kill-ring-save show extent if transient-mark-mode and region
fully visible.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index edcae426a16..7713340b855 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-20  Kim F. Storm  <storm@cua.dk>
+
+	* simple.el (kill-ring-save): Don't show extent of copied region
+	if using transient-mark-mode and region is fully visible.
+
 2001-10-19  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* files.el (auto-mode-alist): Associate .indent.pro with
diff --git a/lisp/simple.el b/lisp/simple.el
index 3879003b557..0374a0aca57 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1797,7 +1797,7 @@ visual feedback indicating the extent of the region being copied."
 	    ;; look like a C-g typed as a command.
 	    (inhibit-quit t))
 	(if (pos-visible-in-window-p other-end (selected-window))
-	    (progn
+	    (unless transient-mark-mode
 	      ;; Swap point and mark.
 	      (set-marker (mark-marker) (point) (current-buffer))
 	      (goto-char other-end)