1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
emacs/lisp/term/linux.el
Karl Heuer dcaa592563 Don't call set-terminal-coding-system
if it was already set.
1997-12-19 14:57:14 +00:00

13 lines
422 B
EmacsLisp

;; The Linux console handles Latin-1 by default.
(unless (terminal-coding-system)
(set-terminal-coding-system 'iso-latin-1))
;; Make Latin-1 input characters work, too.
;; 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)))