diff options
| -rw-r--r-- | lisp/flow-ctrl.el | 2 |
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) |