diff options
| author | Kim F. Storm | 2004-04-30 21:38:23 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-04-30 21:38:23 +0000 |
| commit | 977e2654712bb942ee3c9d34f42766aa899d8e01 (patch) | |
| tree | 75d728e249f0d20a78e508e23ceecad799ad4b61 | |
| parent | b2dae92a19717dad61eb43480a76df01e63376fd (diff) | |
| download | emacs-977e2654712bb942ee3c9d34f42766aa899d8e01.tar.gz emacs-977e2654712bb942ee3c9d34f42766aa899d8e01.zip | |
(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.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 2144 | ;; look like a C-g typed as a command. | 2144 | ;; look like a C-g typed as a command. |
| 2145 | (inhibit-quit t)) | 2145 | (inhibit-quit t)) |
| 2146 | (if (pos-visible-in-window-p other-end (selected-window)) | 2146 | (if (pos-visible-in-window-p other-end (selected-window)) |
| 2147 | (unless transient-mark-mode | 2147 | (unless (and transient-mark-mode |
| 2148 | (face-background 'region)) | ||
| 2148 | ;; Swap point and mark. | 2149 | ;; Swap point and mark. |
| 2149 | (set-marker (mark-marker) (point) (current-buffer)) | 2150 | (set-marker (mark-marker) (point) (current-buffer)) |
| 2150 | (goto-char other-end) | 2151 | (goto-char other-end) |