Mercurial > emacs
annotate lisp/term/vt100.el @ 94425:780f88412851
(desktop-minor-mode-table): Add `savehist-mode'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 28 Apr 2008 08:03:18 +0000 |
parents | 1e3a407766b9 |
children | f3ab0c2464f5 |
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, |
79718 | 4 ;; 2005, 2006, 2007, 2008 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 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
78226
030ae62d5c57
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
14170 | 14 ;; any later version. |
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 | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
25 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
26 ;;; Commentary: |
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 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
466 | 29 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
30 ;; 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
|
31 ;; 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
|
32 ;; 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
|
33 ;; 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
|
34 ;; 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
|
35 ;; 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
|
36 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
37 ;;; Code: |
466 | 38 |
3286 | 39 ;; 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
|
40 |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
41 (defun terminal-init-vt100 () |
af1c58687bdd
* term/apollo.el (terminal-init-apollo): New function containing
Dan Nicolaescu <dann@ics.uci.edu>
parents:
64084
diff
changeset
|
42 "Terminal initialization function for vt100." |
83524
673d62ad74b5
Fix and/or simplify terminal initialization files.
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
43 (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
|
44 |
466 | 45 ;;; Controlling the screen width. |
24390
fa1aec732bee
(vt100-wide-mode): Use defvar, not defconst.
Karl Heuer <kwzh@gnu.org>
parents:
14170
diff
changeset
|
46 (defvar vt100-wide-mode (= (frame-width) 132) |
466 | 47 "t if vt100 is in 132-column mode.") |
48 | |
49 (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
|
50 "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
|
51 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
|
52 With negative argument, switch to 80-column mode." |
466 | 53 (interactive "P") |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
24390
diff
changeset
|
54 (setq vt100-wide-mode |
466 | 55 (if (null arg) (not vt100-wide-mode) |
56 (> (prefix-numeric-value arg) 0))) | |
57 (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
|
58 (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
|
59 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
87649
diff
changeset
|
60 ;; 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
|
61 ;;; vt100.el ends here |