diff options
| author | Richard M. Stallman | 1995-01-26 02:37:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-26 02:37:30 +0000 |
| commit | ad14280fb7d234c52aa1b4119081d9254c0bd116 (patch) | |
| tree | 2bae1bde6fe2354b5b01c3f9462bc6787728a94c | |
| parent | dcbea62ef1a08efbb784e22b57f912296b82bacc (diff) | |
| download | emacs-ad14280fb7d234c52aa1b4119081d9254c0bd116.tar.gz emacs-ad14280fb7d234c52aa1b4119081d9254c0bd116.zip | |
(mouse-save-then-kill): Ignore mouse-selection-click-count if no active mark.
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 81fdee47e5a..c730f8a929f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -620,7 +620,7 @@ If you do this twice in the same position, the selection is killed." | |||
| 620 | ;; Don't let a subsequent kill command append to this one: | 620 | ;; Don't let a subsequent kill command append to this one: |
| 621 | ;; prevent setting this-command to kill-region. | 621 | ;; prevent setting this-command to kill-region. |
| 622 | (this-command this-command)) | 622 | (this-command this-command)) |
| 623 | (if (> (mod mouse-selection-click-count 3) 0) | 623 | (if (and (mark t) (> (mod mouse-selection-click-count 3) 0)) |
| 624 | (if (not (and (eq last-command 'mouse-save-then-kill) | 624 | (if (not (and (eq last-command 'mouse-save-then-kill) |
| 625 | (equal click-posn | 625 | (equal click-posn |
| 626 | (car (cdr-safe (cdr-safe mouse-save-then-kill-posn)))))) | 626 | (car (cdr-safe (cdr-safe mouse-save-then-kill-posn)))))) |