mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
obsolete `concat with integer' by format.
This commit is contained in:
Andreas Schwab 1998-03-23 13:26:00 +00:00
parent ecdd2ab53d
commit ebc4ab7cf8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/xt-mouse.el
View file

@ -86,7 +86,7 @@
;; Generate a drag event.
(if (symbolp down-where)
0
(list (intern (concat "drag-mouse-" (+ 1 xterm-mouse-last)))
(list (intern (format "drag-mouse-%d" (+ 1 xterm-mouse-last)))
down-data click-data))
)))
(if (and (symbolp down-where)
@ -132,9 +132,9 @@
(point))
where))
(mouse (intern (if (eq type 3)
(concat "mouse-" (+ 1 xterm-mouse-last))
(format "mouse-%d" (+ 1 xterm-mouse-last))
(setq xterm-mouse-last type)
(concat "down-mouse-" (+ 1 type))))))
(format "down-mouse-%d" (+ 1 type))))))
(setq xterm-mouse-x x
xterm-mouse-y y)
(list mouse