Mercurial > emacs
changeset 15082:bd6c6923b90e
(mouse-drag-region): Leave region highlighted until the next input event.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Apr 1996 19:15:39 +0000 |
| parents | ab8c81feacf9 |
| children | 285482e8df41 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Fri Apr 26 16:39:13 1996 +0000 +++ b/lisp/mouse.el Fri Apr 26 19:15:39 1996 +0000 @@ -560,7 +560,7 @@ ;; Run the binding of the terminating up-event, if possible. ;; In the case of a multiple click, it gives the wrong results, ;; because it would fail to set up a region. - (if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun)) + (if nil ;; (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun)) ;; In this case, we can just let the up-event execute normally. (let ((end (event-end event))) ;; Set the position in the event before we replay it, @@ -575,11 +575,15 @@ (if (not (= (overlay-start mouse-drag-overlay) (overlay-end mouse-drag-overlay))) (let (last-command this-command) + (let ((inhibit-quit t)) + (setq unread-command-events + (cons (read-event) unread-command-events)) + (setq quit-flag nil)) (push-mark (overlay-start mouse-drag-overlay) t t) (goto-char (overlay-end mouse-drag-overlay)) - (delete-overlay mouse-drag-overlay) (copy-region-as-kill (point) (mark t)) - (mouse-set-region-1)) + (mouse-set-region-1) + (delete-overlay mouse-drag-overlay)) (goto-char (overlay-end mouse-drag-overlay)) (setq this-command 'mouse-set-point) (delete-overlay mouse-drag-overlay))))