Mercurial > emacs

diff lisp/flow-ctrl.el @ 9090:753a50122131

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(enable-flow-control): Never make keyboard-translate-table shorter.
author Richard M. Stallman <rms@gnu.org>
date Sun, 25 Sep 1994 18:28:22 +0000
parents 3cfe5791ddfb
children dfe865222721
line wrap: on
line diff
--- a/lisp/flow-ctrl.el	Sun Sep 25 18:06:01 1994 +0000
+++ b/lisp/flow-ctrl.el	Sun Sep 25 18:28:22 1994 +0000
@@ -74,7 +74,8 @@
     ;; 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)