diff options
| author | Karoly Lorentey <lorentey@elte.hu> | 2005-12-23 03:00:55 +0000 |
|---|---|---|
| committer | Karoly Lorentey <lorentey@elte.hu> | 2005-12-23 03:00:55 +0000 |
| commit | a712a8c33b63a0ea6775034f10a55d933c55fdeb (patch) | |
| tree | 02ec4f5edde26c50885024b5cc91d729497b28ae /lisp/term/linux.el | |
| parent | f35ca2fe35859b40b1b0ff15a1751aab4805d392 (diff) | |
| download | emacs-a712a8c33b63a0ea6775034f10a55d933c55fdeb.tar.gz | |
Don't let x_initialize break 8-bit input on ttys. (Reported by Joakim Verona.) Split `set-input-mode'.
* lisp/international/encoded-kb.el (encoded-kbd-setup-display): Use `set-input-meta-mode'.
* lisp/linux.el (terminal-init-linux): Ditto.
* src/keyboard.c (Fset_input_interrupt_mode, Fset_output_flow_control)
(syms_of_keyboard): Defsubr them.
(Fset_input_meta_mode, Fset_quit_char): New functions.
(Fset_input_mode): Split to above functions.
* lisp.h: EXFUN the new functions.
* xterm.c (x_initialize): Use Fset_input_interrupt_mode.
* macterm.c (mac_initialize): Ditto.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-457
Diffstat (limited to 'lisp/term/linux.el')
| -rw-r--r-- | lisp/term/linux.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/term/linux.el b/lisp/term/linux.el index 7fa9a96e9bd..449cd837089 100644 --- a/lisp/term/linux.el +++ b/lisp/term/linux.el @@ -13,9 +13,8 @@ ;; Meta will continue to work, because the kernel ;; turns that into Escape. - (let ((value (current-input-mode))) - ;; The third arg only matters in that it is not t or nil. - (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value)))) + ;; The arg only matters in that it is not t or nil. + (set-input-meta-mode 'iso-latin-1)) ;;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f ;;; linux.el ends here |