diff options
| -rw-r--r-- | 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 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." | |||
| 733 | nil) | 733 | nil) |
| 734 | (or (eq evt (aref (car handler) i)) | 734 | (or (eq evt (aref (car handler) i)) |
| 735 | (progn (if evt (push evt unread-command-events)) | 735 | (progn (if evt (push evt unread-command-events)) |
| 736 | nil)))) | 736 | nil))))) |
| 737 | (setq i (1+ i))) | 737 | (setq i (1+ i))) |
| 738 | (if (= i (length (car handler))) | 738 | (if (= i (length (car handler))) |
| 739 | (progn (setq handlers nil) | 739 | (progn (setq handlers nil) |
| 740 | (funcall (cdr handler))) | 740 | (funcall (cdr handler))) |
| 741 | (while (> i 0) | 741 | (while (> i 0) |
| 742 | (push (aref (car handler) (setq i (1- i))) | 742 | (push (aref (car handler) (setq i (1- i))) |
| 743 | unread-command-events))))))))) | 743 | unread-command-events)))))))) |
| 744 | 744 | ||
| 745 | (defun xterm--push-map (map basemap) | 745 | (defun xterm--push-map (map basemap) |
| 746 | ;; Use inheritance to let the main keymaps override those defaults. | 746 | ;; Use inheritance to let the main keymaps override those defaults. |