diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/flow-ctrl.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el index e2cef00684b..d97b0395b91 100644 --- a/lisp/flow-ctrl.el +++ b/lisp/flow-ctrl.el | |||
| @@ -74,7 +74,8 @@ With arg, enable flow control mode if arg is positive, otherwise disable." | |||
| 74 | ;; Tell emacs to pass C-s and C-q to OS. | 74 | ;; Tell emacs to pass C-s and C-q to OS. |
| 75 | (set-input-mode nil t (nth 2 (current-input-mode))) | 75 | (set-input-mode nil t (nth 2 (current-input-mode))) |
| 76 | ;; Initialize translate table, saving previous mappings, if any. | 76 | ;; Initialize translate table, saving previous mappings, if any. |
| 77 | (let ((the-table (make-string 128 0))) | 77 | (let ((the-table (make-string (max 128 (length keyboard-translate-table)) |
| 78 | 0))) | ||
| 78 | (let ((i 0) | 79 | (let ((i 0) |
| 79 | (j (length keyboard-translate-table))) | 80 | (j (length keyboard-translate-table))) |
| 80 | (while (< i j) | 81 | (while (< i j) |