mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
a712a8c33b
* 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
20 lines
601 B
EmacsLisp
20 lines
601 B
EmacsLisp
;; -*- no-byte-compile: t -*-
|
|
;; The Linux console handles Latin-1 by default.
|
|
|
|
(defun terminal-init-linux ()
|
|
"Terminal initialization function for linux."
|
|
(unless (terminal-coding-system)
|
|
(set-terminal-coding-system 'iso-latin-1))
|
|
|
|
;; It can't really display underlines.
|
|
(tty-no-underline)
|
|
|
|
;; Make Latin-1 input characters work, too.
|
|
;; Meta will continue to work, because the kernel
|
|
;; turns that into Escape.
|
|
|
|
;; 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
|