From 1bc1c75ef9fbd4ae7b71174e40cf41880b33aa92 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 11 Jun 1993 17:55:51 +0000
Subject: [PATCH] (enable-flow-control): Don't alter the 8-bit flag.

---
 lisp/flow-ctrl.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/flow-ctrl.el b/lisp/flow-ctrl.el
index a1fba7803fd..138ef0908d1 100644
--- a/lisp/flow-ctrl.el
+++ b/lisp/flow-ctrl.el
@@ -49,7 +49,7 @@
   "Enable use of flow control; let user type C-s as C-\\ and C-q as C-^."
   (interactive)
   ;; Tell emacs to pass C-s and C-q to OS.
-  (set-input-mode nil t nil)
+  (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 ((i 0)