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

obsolete `concat with integer' by format.

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index a15f22ee62384d7b5c9016ff8edffcc2c3f3a4c6..dbd741e5e6c7cb8042dff366bb13eac1c7ec7aab 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -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