mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

(enable-flow-control): Never make keyboard-translate-table shorter.

Browse source
This commit is contained in:
Richard M. Stallman 1994-09-25 18:28:22 +00:00
parent a783251b57
commit bb48cfe81f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/flow-ctrl.el
View file

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