Mercurial > emacs
comparison lisp/term/linux.el @ 95628:8bb6e8177f61
(terminal-init-linux): Use gpm-mouse-mode rather than obsolete alias.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 07 Jun 2008 02:42:21 +0000 |
parents | 1e3a407766b9 |
children | 43c1eff6b631 |
comparison
equal
deleted
inserted
replaced
95627:51a4069c3233 | 95628:8bb6e8177f61 |
---|---|
1 ;; -*- no-byte-compile: t -*- | 1 ;; -*- no-byte-compile: t -*- |
2 ;; The Linux console handles Latin-1 by default. | 2 ;; The Linux console handles Latin-1 by default. |
3 | 3 |
4 (defun terminal-init-linux () | 4 (defun terminal-init-linux () |
5 "Terminal initialization function for linux." | 5 "Terminal initialization function for linux." |
6 (unless (terminal-coding-system) | 6 (unless (terminal-coding-system) |
7 (set-terminal-coding-system 'iso-latin-1)) | 7 (set-terminal-coding-system 'iso-latin-1)) |
8 | 8 |
9 ;; It can't really display underlines. | 9 ;; It can't really display underlines. |
10 (tty-no-underline) | 10 (tty-no-underline) |
11 | 11 |
12 (condition-case nil (t-mouse-mode 1) | 12 (ignore-errors (gpm-mouse-mode 1)) |
13 (error nil)) | |
14 | 13 |
15 ;; Make Latin-1 input characters work, too. | 14 ;; Make Latin-1 input characters work, too. |
16 ;; Meta will continue to work, because the kernel | 15 ;; Meta will continue to work, because the kernel |
17 ;; turns that into Escape. | 16 ;; turns that into Escape. |
18 | 17 |