diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-02 16:35:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-02 16:35:13 +0000 |
| commit | 599431abfb98d3b33b08d33625f7cc52a6e125f6 (patch) | |
| tree | bd2c66de8b10c3b460907dc74d27689af6892c5a /lisp/xt-mouse.el | |
| parent | 5411544782cf59fe135eff3732952f16e06c5a06 (diff) | |
| download | emacs-599431abfb98d3b33b08d33625f7cc52a6e125f6.tar.gz | |
(xterm-mouse-translate, xterm-mouse-event):
Variable `last' renamed to `xterm-mouse-last'.
(xterm-mouse-last): Add defvar.
Diffstat (limited to 'lisp/xt-mouse.el')
| -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 f7f0aaa4633..07211b08af3 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -38,12 +38,14 @@ (define-key function-key-map "\e[M" 'xterm-mouse-translate) +(defvar xterm-mouse-last) + (defun xterm-mouse-translate (event) ;; Read a click and release event from XTerm. (save-excursion (save-window-excursion (deactivate-mark) - (let* ((last) + (let* ((xterm-mouse-last) (down (xterm-mouse-event)) (down-command (nth 0 down)) (down-data (nth 1 down)) @@ -73,7 +75,7 @@ ;; Generate a drag event. (if (symbolp down-where) 0 - (list (intern (concat "drag-mouse-" (+ 1 last))) + (list (intern (concat "drag-mouse-" (+ 1 xterm-mouse-last))) down-data click-data)) ))) (if (and (symbolp down-where) @@ -115,8 +117,8 @@ (point)) where)) (mouse (intern (if (eq type 3) - (concat "mouse-" (+ 1 last)) - (setq last type) + (concat "mouse-" (+ 1 xterm-mouse-last)) + (setq xterm-mouse-last type) (concat "down-mouse-" (+ 1 type)))))) (setq xterm-mouse-x x xterm-mouse-y y) |