[Emacs-diffs] master 8bab149: * lisp/term/xterm.el (xterm--query): Fix paren typo (bug#20951).

[Stefan Monnier]

branch: master
commit 8bab1490f14207eeeee4b2f4ad30b5d695db8245
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/term/xterm.el (xterm--query): Fix paren typo (bug#20951).
---
 lisp/term/xterm.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

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