From 8bab1490f14207eeeee4b2f4ad30b5d695db8245 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 2 Jul 2015 10:49:09 -0400 Subject: [PATCH] * lisp/term/xterm.el (xterm--query): Fix paren typo (bug#20951). --- lisp/term/xterm.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) 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. -- 2.39.5