Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
10552:b804533a1254 | 10553:3092c83a8a9d |
---|---|
618 (mouse-minibuffer-check click) | 618 (mouse-minibuffer-check click) |
619 (let ((click-posn (posn-point (event-start click))) | 619 (let ((click-posn (posn-point (event-start click))) |
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)))))) |
627 ;; Find both ends of the object selected by this click. | 627 ;; Find both ends of the object selected by this click. |
628 (let* ((range | 628 (let* ((range |