From: Kim F. Storm <storm@cua.dk>
Date: Fri, 30 Apr 2004 21:38:23 +0000 (+0000)
Subject: (kill-ring-save): If region face background color is
X-Git-Tag: ttn-vms-21-2-B4~6496
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=977e2654712bb942ee3c9d34f42766aa899d8e01;p=emacs.git

(kill-ring-save): If region face background color is
unspecified (if no highlighting), show extent of fully visible
region even if transient-mark-mode is enabled.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 80c16726c50..b32d2408880 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2144,7 +2144,8 @@ 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))
-	    (unless transient-mark-mode
+	    (unless (and transient-mark-mode
+			 (face-background 'region))
 	      ;; Swap point and mark.
 	      (set-marker (mark-marker) (point) (current-buffer))
 	      (goto-char other-end)