Mercurial > emacs
annotate lisp/emulation/edt-vt100.el @ 71816:0b0685327de8
Include blockinput.h.
(Ffile_attributes): Add BLOCK_INPUT around getpwuid/getgrgid.
author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> |
---|---|
date | Wed, 12 Jul 2006 08:37:07 +0000 |
parents | 067115a6e738 |
children | bebcfea668db c5406394f567 |
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, |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64701
diff
changeset
|
4 ;; 2005, 2006 Free Software Foundation, Inc. |
10690 | 5 |
18943 | 6 ;; Author: Kevin Gallagher <kevingal@onramp.net> |
7 ;; Maintainer: Kevin Gallagher <kevingal@onramp.net> | |
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 | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
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 |
13059
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
42 (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
|
43 "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
|
44 (vt100-wide-mode -1)) |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
45 |
f5ecbf76f4f9
(edt-set-term-width-80, edt-set-term-width-132):
Karl Heuer <kwzh@gnu.org>
parents:
11441
diff
changeset
|
46 (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
|
47 "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
|
48 (vt100-wide-mode 1)) |
38436
b174db545cfd
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
18943
diff
changeset
|
49 |
52401 | 50 ;;; 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
|
51 ;;; edt-vt100.el ends here |