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 edcae426a1621162b12334586f9c760585416cc7..7713340b855754ebf0b2bec81644736f0c5db7d7 100644 (file)
--- 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 3879003b5572127d867e116d09adb8861cf285c3..0374a0aca57c66b49468ed9352228453914a712e 100644 (file)
--- 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)