# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770129692 0
# Node ID 3cfe5791ddfbaafe95c5287067e3c9c05492ce2a
# Parent  3846302b9c9c6cfa3acd97caba67d19ab86f737a
(enable-flow-control): Fix bugs turning off flow ctrl.

diff -r 3846302b9c9c -r 3cfe5791ddfb lisp/flow-ctrl.el
--- a/lisp/flow-ctrl.el	Sat May 28 12:33:08 1994 +0000
+++ b/lisp/flow-ctrl.el	Sat May 28 12:54:52 1994 +0000
@@ -62,10 +62,14 @@
       (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)))