]> code.delx.au - gnu-emacs/blobdiff - lisp/term/linux.el
Add a provide statement.
[gnu-emacs] / lisp / term / linux.el
index 85abbe176109624845e9f73d7db9ef318adde18b..80bfe83a4ebc77c85ff88f97ade3aeaa3d270d80 100644 (file)
@@ -1,3 +1,16 @@
+;; -*- no-byte-compile: t -*-
 ;; The Linux console handles Latin-1 by default.
 
-(set-terminal-coding-system 'iso-latin-1)
+(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)))
+
+;;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
+;;; linux.el ends here