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