Mercurial > emacs

diff lisp/mouse.el @ 10553:3092c83a8a9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))))))