summaryrefslogtreecommitdiff
path: root/lisp/flow-ctrl.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/flow-ctrl.el')
-rw-r--r--lisp/flow-ctrl.el2
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)