Mercurial > emacs

view lisp/term/linux.el @ 49731:36beaccb197a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(simula-font-lock-syntactic-keywords): New var. (simula-font-lock-keywords-1): Simplify. (simula-font-lock-keywords-2): Use regexp-opt. (simula-emacs-features): Remove. (simula-mode-syntax-table): Setup %...\n as comment style b. (simula-mode-map): Remove compatibility cruft. (simula-keep-region-active): Remove. (simula-popup-menu): Simplify. (simula-mode): Move abbrev-table setup to top-level. (simula-match-string-or-comment): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 11 Feb 2003 21:19:36 +0000
parents 33d53d287ee4
children 695cf19ef79e d7ddb3e565de
line wrap: on
line source

;; -*- no-byte-compile: t -*-
;; 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)))

;;; linux.el ends here