mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Stefan Monnier 2015-07-02 10:49:09 -04:00
parent e9e9629768
commit 8bab1490f1
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/term/xterm.el
View File

@ -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.