Mercurial > emacs
annotate lisp/term/vt100.el @ 107329:4e1ca27d938e
Close bug#5670 with patch from ?t?pn N?mec <stepnem at gmail.com>.
* subr.el (momentary-string-display): Don't overwrite the MESSAGE
argument with a local variable. (Bug#5670)
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 02 Mar 2010 19:58:26 -0800 |
parents | 1d1d5d9bd884 |
children | 0b37f86b040e 376148b31b5e |
rev | line source |
---|---|
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
1 ;;; vt100.el --- define VT100 function key sequences in function-key-map |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1989, 1993, 2001, 2002, 2003, 2004, |
106815 | 4 ;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
14170 | 5 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
6 ;; Author: FSF |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
7 ;; Keywords: terminals |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
8 |
14170 | 9 ;; This file is part of GNU Emacs. |
10 | |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
14170 | 12 ;; it under the terms of the GNU General Public License as published by |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
14 ;; (at your option) any later version. |
14170 | 15 |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93975
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
23 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
24 ;;; Commentary: |
466 | 25 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
26 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
466 | 27 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
28 ;; Handles all VT100 clones, including the Apollo terminal. Also handles |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
29 ;; the VT200 --- its PF- and arrow- keys are different, but all those |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
30 ;; are really set up by the terminal initialization code, which mines them |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
31 ;; out of termcap. This package is here to define the keypad comma, dash |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
32 ;; and period (which aren't in termcap's repertoire) and the function for |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
33 ;; changing from 80 to 132 columns & vv. |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
34 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
35 ;;; Code: |
466 | 36 |
3286 | 37 ;; Set up function-key-map entries that termcap and terminfo don't know. |
64651
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
38 |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
39 (defun terminal-init-vt100 () |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
40 "Terminal initialization function for vt100." |
83524
673d62ad74b5
Fix and/or simplify terminal initialization files.
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
41 (tty-run-terminal-initialization (selected-frame) "lk201")) |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64651
diff
changeset
|
42 |
466 | 43 ;;; Controlling the screen width. |
24390
fa1aec732bee
(vt100-wide-mode): Use defvar, not defconst.
Karl Heuer <kwzh@gnu.org>
parents:
14170
diff
changeset
|
44 (defvar vt100-wide-mode (= (frame-width) 132) |
466 | 45 "t if vt100 is in 132-column mode.") |
46 | |
47 (defun vt100-wide-mode (&optional arg) | |
3234
9a789eacd9ec
(vt100-wide-mode): Add missing arg in set-frame-width.
Richard M. Stallman <rms@gnu.org>
parents:
2240
diff
changeset
|
48 "Toggle 132/80 column mode for vt100s. |
9a789eacd9ec
(vt100-wide-mode): Add missing arg in set-frame-width.
Richard M. Stallman <rms@gnu.org>
parents:
2240
diff
changeset
|
49 With positive argument, switch to 132-column mode. |
9a789eacd9ec
(vt100-wide-mode): Add missing arg in set-frame-width.
Richard M. Stallman <rms@gnu.org>
parents:
2240
diff
changeset
|
50 With negative argument, switch to 80-column mode." |
466 | 51 (interactive "P") |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
24390
diff
changeset
|
52 (setq vt100-wide-mode |
466 | 53 (if (null arg) (not vt100-wide-mode) |
54 (> (prefix-numeric-value arg) 0))) | |
55 (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l")) | |
3234
9a789eacd9ec
(vt100-wide-mode): Add missing arg in set-frame-width.
Richard M. Stallman <rms@gnu.org>
parents:
2240
diff
changeset
|
56 (set-frame-width terminal-frame (if vt100-wide-mode 132 80))) |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
57 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
58 ;; arch-tag: 9ff41f24-a7c9-4dee-9cf2-fbaa951eb840 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
59 ;;; vt100.el ends here |