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 |