(enable-flow-control): Fix bugs turning off flow ctrl.

[gnu-emacs] / lisp / flow-ctrl.el

diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index f871493c0a23033033e25c326f56fcc71668df40..e2cef00684b02ea5998ec08a31d69ddf3d784f39 100644 (file)
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -62,10 +62,14 @@ With arg, enable flow control mode if arg is positive, otherwise disable."
       (progn
        ;; Turn flow control off, and stop exchanging chars.
        (set-input-mode t nil (nth 2 (current-input-mode)))
-       (aset keyboard-translate-table flow-control-c-s-replacement nil)
-       (aset keyboard-translate-table ?\^s nil)
-       (aset keyboard-translate-table flow-control-c-q-replacement nil)
-       (aset keyboard-translate-table ?\^q nil))
+       (if keyboard-translate-table
+           (progn
+             (aset keyboard-translate-table flow-control-c-s-replacement
+                   flow-control-c-s-replacement)
+             (aset keyboard-translate-table ?\^s ?\^s)
+             (aset keyboard-translate-table flow-control-c-q-replacement
+                   flow-control-c-q-replacement)
+             (aset keyboard-translate-table ?\^q ?\^q))))
     ;; Turn flow control on.
     ;; Tell emacs to pass C-s and C-q to OS.
     (set-input-mode nil t (nth 2 (current-input-mode)))