diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-11 17:55:51 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-11 17:55:51 +0000 |
| commit | 1bc1c75ef9fbd4ae7b71174e40cf41880b33aa92 (patch) | |
| tree | e1475e4c4473bc6c2e9415b9d9b835e5051e2e3a /lisp/flow-ctrl.el | |
| parent | 4cd88e9c9454547254b953b7fdba221138271b0a (diff) | |
| download | emacs-1bc1c75ef9fbd4ae7b71174e40cf41880b33aa92.tar.gz | |
(enable-flow-control): Don't alter the 8-bit flag.
Diffstat (limited to 'lisp/flow-ctrl.el')
| -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) |