Mercurial > emacs

diff lisp/term/linux.el @ 83417:fe870a866ce7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 23 Dec 2005 03:00:55 +0000
parents af1c58687bdd
children 0a3247aa24a4
line wrap: on
line diff
--- a/lisp/term/linux.el	Thu Dec 22 21:02:45 2005 +0000
+++ b/lisp/term/linux.el	Fri Dec 23 03:00:55 2005 +0000
@@ -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