From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 2 Jul 2015 14:49:09 +0000 (-0400)
Subject: * lisp/term/xterm.el (xterm--query): Fix paren typo (bug#20951).
X-Git-Tag: emacs-25.0.90~1577
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8bab1490f14207eeeee4b2f4ad30b5d695db8245;p=emacs.git

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

diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el
index 350ab3c8f88..300e494c0d3 100644
--- 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.