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 | f3bdc0afc0aa86bf1b85971eb8242531b30789e0 (patch) | |
| tree | b712b99b7be069693045592a4aeddf2bac304619 /lisp/flow-ctrl.el | |
| parent | a4d593654e19af41d18b887530fb9a5a57f23979 (diff) | |
| download | emacs-f3bdc0afc0aa86bf1b85971eb8242531b30789e0.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) |