# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1003533866 0
# Node ID bd85ab6cffed57da953cd4fbdd5fc4decba1bbc3
# Parent  3a269250182de7fad133711c73c0d52b90ebea9f
Don't let kill-ring-save show extent if transient-mark-mode and region
fully visible.

diff -r 3a269250182d -r bd85ab6cffed lisp/simple.el
--- a/lisp/simple.el	Fri Oct 19 22:12:42 2001 +0000
+++ b/lisp/simple.el	Fri Oct 19 23:24:26 2001 +0000
@@ -1797,7 +1797,7 @@
 	    ;; 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)