* lisp/term/xterm.el (xterm--query): Fix paren typo (bug#20951).

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 350ab3c8f88908732cdf0b87084b85eb2ee0f576..300e494c0d345dbf1aeef2e78082762181c6f992 100644 (file)
--- a/lisp/term/xterm.el
+++ b/lisp/term/xterm.el
@@ -733,14 +733,14 @@ We run the first FUNCTION whose STRING matches the input events."
                               nil)
                           (or (eq evt (aref (car handler) i))
                               (progn (if evt (push evt unread-command-events))
-                                     nil))))
-                      (setq i (1+ i)))
-            (if (= i (length (car handler)))
-                (progn (setq handlers nil)
-                       (funcall (cdr handler)))
-              (while (> i 0)
-                (push (aref (car handler) (setq i (1- i)))
-                      unread-command-events)))))))))
+                                     nil)))))
+            (setq i (1+ i)))
+          (if (= i (length (car handler)))
+              (progn (setq handlers nil)
+                     (funcall (cdr handler)))
+            (while (> i 0)
+              (push (aref (car handler) (setq i (1- i)))
+                    unread-command-events))))))))
 
 (defun xterm--push-map (map basemap)
   ;; Use inheritance to let the main keymaps override those defaults.