diff options
| author | Nick Roberts | 2005-11-28 05:38:49 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-11-28 05:38:49 +0000 |
| commit | cb666f2dd7cd8ad7e166afe16323fabb4dccd095 (patch) | |
| tree | 8a68f5f50a503bc6b1c7f5977f314c3caa2dcbdd | |
| parent | 17550579d6ee104ac3365f0460290fc17ad52264 (diff) | |
| download | emacs-cb666f2dd7cd8ad7e166afe16323fabb4dccd095.tar.gz emacs-cb666f2dd7cd8ad7e166afe16323fabb4dccd095.zip | |
(xterm-mouse-event): Set last-input-event so
that (list last-input-event) works as in interactive spec.
| -rw-r--r-- | lisp/xt-mouse.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 80927647fbb..61f4f17ed2a 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -146,10 +146,12 @@ | |||
| 146 | 146 | ||
| 147 | (setq xterm-mouse-x x | 147 | (setq xterm-mouse-x x |
| 148 | xterm-mouse-y y) | 148 | xterm-mouse-y y) |
| 149 | (if w | 149 | (setq |
| 150 | (list mouse (posn-at-x-y (- x left) (- y top) w t)) | 150 | last-input-event |
| 151 | (list mouse | 151 | (if w |
| 152 | (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))) | 152 | (list mouse (posn-at-x-y (- x left) (- y top) w t)) |
| 153 | (list mouse | ||
| 154 | (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))) | ||
| 153 | 155 | ||
| 154 | ;;;###autoload | 156 | ;;;###autoload |
| 155 | (define-minor-mode xterm-mouse-mode | 157 | (define-minor-mode xterm-mouse-mode |