[bpt/emacs.git] / lisp / term / linux.el

;; The Linux console handles Latin-1 by default.

(declare-function gpm-mouse-enable "t-mouse" ())

(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)

  (ignore-errors (when gpm-mouse-mode (require 't-mouse) (gpm-mouse-enable)))

  ;; 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))

;;; linux.el ends here
Commit	Line	Data
57cf80bf RS	1	;; The Linux console handles Latin-1 by default.
57cf80bf RS	2
55a71479 JB	3	(declare-function gpm-mouse-enable "t-mouse" ())
55a71479 JB	4
4f0c9ba7	5	(defun terminal-init-linux ()
1fb07b5b	6	"Terminal initialization function for linux."
4f0c9ba7 DN	7	(unless (terminal-coding-system)
4f0c9ba7 DN	8	(set-terminal-coding-system 'iso-latin-1))
952e6ec2	9
4f0c9ba7 DN	10	;; It can't really display underlines.
4f0c9ba7 DN	11	(tty-no-underline)
f1487cc5	12
960ec30c	13	(ignore-errors (when gpm-mouse-mode (require 't-mouse) (gpm-mouse-enable)))
07fedf1e	14
4f0c9ba7 DN	15	;; Make Latin-1 input characters work, too.
	16	;; Meta will continue to work, because the kernel
	17	;; turns that into Escape.
952e6ec2	18
a712a8c3 KL	19	;; The arg only matters in that it is not t or nil.
a712a8c3 KL	20	(set-input-meta-mode 'iso-latin-1))
60370d40 PJ	21
60370d40 PJ	22	;;; linux.el ends here