procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(xterm-mouse-translate, xterm-mouse-event):

Browse source 
Variable `last' renamed to `xterm-mouse-last'.
(xterm-mouse-last): Add defvar.
This commit is contained in:
Richard M. Stallman 1996-01-02 16:35:13 +00:00
parent 5411544782
commit 599431abfb
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/xt-mouse.el
View file

@ -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)