1 files changed, 1 insertions, 1 deletions
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)

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 @@
49	"Enable use of flow control; let user type C-s as C-\\ and C-q as C-^."	49	"Enable use of flow control; let user type C-s as C-\\ and C-q as C-^."
50	(interactive)	50	(interactive)
51	;; Tell emacs to pass C-s and C-q to OS.	51	;; Tell emacs to pass C-s and C-q to OS.
52	(set-input-mode nil t nil)	52	(set-input-mode nil t (nth 2 (current-input-mode)))
53	;; Initialize translate table, saving previous mappings, if any.	53	;; Initialize translate table, saving previous mappings, if any.
54	(let ((the-table (make-string 128 0)))	54	(let ((the-table (make-string 128 0)))
55	(let ((i 0)	55	(let ((i 0)