diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-25 18:28:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-25 18:28:22 +0000 |
| commit | bb48cfe81f3e4cad9b19ee752e853b76f28e8812 (patch) | |
| tree | 6a9fa6814d28acec0b8ee84e551f2dbb75c3f29e /lisp/flow-ctrl.el | |
| parent | a783251b57d2c955bc6918954593714552cf6d13 (diff) | |
| download | emacs-bb48cfe81f3e4cad9b19ee752e853b76f28e8812.tar.gz | |
(enable-flow-control): Never make keyboard-translate-table shorter.
Diffstat (limited to 'lisp/flow-ctrl.el')
| -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." ;; Tell emacs to pass C-s and C-q to OS. (set-input-mode nil t (nth 2 (current-input-mode))) ;; Initialize translate table, saving previous mappings, if any. - (let ((the-table (make-string 128 0))) + (let ((the-table (make-string (max 128 (length keyboard-translate-table)) + 0))) (let ((i 0) (j (length keyboard-translate-table))) (while (< i j) |