Mercurial > emacs
diff lisp/mouse.el @ 10553:3092c83a8a9d
(mouse-save-then-kill): Ignore mouse-selection-click-count if no active mark.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 26 Jan 1995 02:37:30 +0000 |
parents | 1b6d44607114 |
children | f5f5c52de2e4 |
line wrap: on
line diff
--- a/lisp/mouse.el Wed Jan 25 09:04:07 1995 +0000 +++ b/lisp/mouse.el Thu Jan 26 02:37:30 1995 +0000 @@ -620,7 +620,7 @@ ;; Don't let a subsequent kill command append to this one: ;; prevent setting this-command to kill-region. (this-command this-command)) - (if (> (mod mouse-selection-click-count 3) 0) + (if (and (mark t) (> (mod mouse-selection-click-count 3) 0)) (if (not (and (eq last-command 'mouse-save-then-kill) (equal click-posn (car (cdr-safe (cdr-safe mouse-save-then-kill-posn))))))