diff options
Diffstat (limited to 'lisp/term/sun-mouse.el')
| -rw-r--r-- | lisp/term/sun-mouse.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index 282225ea4e3..0ac9e46f4ea 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -318,12 +318,14 @@ but that uses minibuffer, and mucks up last-command." (let ((pc1 (read-char))) (if (or (not (equal pc1 mouse-prefix1)) (sit-for-millisecs 3)) ; a mouse prefix will have second char - (progn (setq unread-command-event pc1) ; Can get away with one unread. + ;; Can get away with one unread. + (progn (setq unread-command-events (list pc1)) nil) ; Next input not mouse event. (let ((pc2 (read-char))) (if (not (equal pc2 mouse-prefix2)) - (progn (setq unread-command-event pc1) ; put back the ^X + (progn (setq unread-command-events (list pc1)) ; put back the ^X ;;; Too bad can't do two: (setq unread-command-event (list pc1 pc2)) +;;; Well, now we can, but I don't understand this code well enough to fix it... (ding) ; user will have to retype that pc2. nil) ; This input is not a mouse event. ;; Next input has mouse prefix and is within time limit. |