martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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