Commit ebc4ab7c authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

obsolete `concat with integer' by format.
parent ecdd2ab5
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment