Mercurial > emacs
annotate lisp/term/vt100.el @ 11483:089f81a81ba6
(x_report_frame_params): Report value of `display' parm.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 18 Apr 1995 18:36:03 +0000 |
parents | aadc5c8cf337 |
children | 23cc3f54e536 |
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 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
3 ;; Author: FSF |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
4 ;; Keywords: terminals |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
5 |
3286 | 6 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc. |
7 ;;; This file is part of GNU Emacs. | |
8 ;;; | |
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify | |
10 ;;; it under the terms of the GNU General Public License as published by | |
11 ;;; the Free Software Foundation; either version 2, or (at your option) | |
12 ;;; any later version. | |
13 ;;; | |
14 ;;; GNU Emacs is distributed in the hope that it will be useful, | |
15 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
16 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
17 ;;; GNU General Public License for more details. | |
18 ;;; | |
19 ;;; You should have received a copy of the GNU General Public License | |
20 ;;; along with GNU Emacs; see the file COPYING. If not, write to | |
21 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
22 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
23 ;;; Commentary: |
466 | 24 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
25 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. |
466 | 26 |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
27 ;; 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
|
28 ;; 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
|
29 ;; 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
|
30 ;; 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
|
31 ;; 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
|
32 ;; 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
|
33 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
34 ;;; Code: |
466 | 35 |
3286 | 36 ;; Set up function-key-map entries that termcap and terminfo don't know. |
37 (load "term/lk201" nil t) | |
2144
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
38 |
466 | 39 ;;; Controlling the screen width. |
779 | 40 (defconst vt100-wide-mode (= (frame-width) 132) |
466 | 41 "t if vt100 is in 132-column mode.") |
42 | |
43 (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
|
44 "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
|
45 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
|
46 With negative argument, switch to 80-column mode." |
466 | 47 (interactive "P") |
48 (setq vt100-wide-mode | |
49 (if (null arg) (not vt100-wide-mode) | |
50 (> (prefix-numeric-value arg) 0))) | |
51 (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
|
52 (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
|
53 |
505f87093028
Added headers, commented out code the duplicates startup effects.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
779
diff
changeset
|
54 ;;; vt100.el ends here |