Mercurial > emacs
annotate lisp/emulation/edt-vt100.el @ 92068:dd458038bf78
New file.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 22 Feb 2008 01:51:04 +0000 |
parents | 107ccd98fa12 |
children | 606f2d163a64 1e3a407766b9 |
rev | line source |
---|---|
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
1 ;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals |
13337 | 2 |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64085
diff
changeset
|
3 ;; Copyright (C) 1986, 1992, 1993, 1995, 2002, 2003, 2004, |
79705 | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
10690 | 5 |
74639
bebcfea668db
Update maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
68648
diff
changeset
|
6 ;; Author: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
bebcfea668db
Update maintainer's email address.
Eli Zaretskii <eliz@gnu.org>
parents:
68648
diff
changeset
|
7 ;; Maintainer: Kevin Gallagher <Kevin.Gallagher@boeing.com> |
10690 | 8 ;; Keywords: emulations |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
78218
ac0efac52065
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
10690 | 15 ;; any later version. |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
10690 | 26 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
27 ;;; Commentary: |
10690 | 28 |
11441 | 29 ;; See edt-user.doc in the Emacs etc directory. |
10690 | 30 |
31 ;; ==================================================================== | |
32 | |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
33 |
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
34 ;;; Code: |
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
35 |
10690 | 36 ;; Get keyboard function key mapping to EDT keys. |
37 (load "edt-lk201" nil t) | |
38 | |
13059
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
39 ;; The following functions are called by the EDT screen width commands defined |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
40 ;; in edt.el. |
10690 | 41 |
86243
4d615a83cee2
* progmodes/idlw-help.el: Require browse-url unconditionally, it
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78218
diff
changeset
|
42 (declare-function vt100-wide-mode "../term/vt100" (&optional arg)) |
4d615a83cee2
* progmodes/idlw-help.el: Require browse-url unconditionally, it
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78218
diff
changeset
|
43 |
13059
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
44 (defun edt-set-term-width-80 () |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
45 "Set terminal width to 80 columns." |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
46 (vt100-wide-mode -1)) |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
47 |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
48 (defun edt-set-term-width-132 () |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
49 "Set terminal width to 132 columns." |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
50 (vt100-wide-mode 1)) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
51 |
52401 | 52 ;;; arch-tag: c9f10c95-915f-44b5-93ff-4654abca4dd4 |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
53 ;;; edt-vt100.el ends here |