1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index a15f22ee623..dbd741e5e6c 100644
--- 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