annotate lisp/term/vt100.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 11502791fc1c
children 85bd42a1e544 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
1 ;;; vt100.el --- define VT100 function key sequences in function-key-map
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
2
622
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 0
diff changeset
3 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 0
diff changeset
4
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
5 ;; Author: FSF
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
6 ;; Keywords: terminals
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
7
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
8 ;;; This file is part of GNU Emacs.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
9 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
10 ;;; GNU Emacs is free software; you can redistribute it and/or modify
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
11 ;;; it under the terms of the GNU General Public License as published by
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
12 ;;; the Free Software Foundation; either version 2, or (at your option)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
13 ;;; any later version.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
14 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
15 ;;; GNU Emacs is distributed in the hope that it will be useful,
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
16 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
18 ;;; GNU General Public License for more details.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
19 ;;;
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
20 ;;; You should have received a copy of the GNU General Public License
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
21 ;;; along with GNU Emacs; see the file COPYING. If not, write to
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
23
622
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 0
diff changeset
24 ;;; Synched up with: FSF 21.0.103.
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 0
diff changeset
25
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
26 ;;; Commentary:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
27
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
28 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
29
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
30 ;; Handles all VT100 clones, including the Apollo terminal. Also handles
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
31 ;; the VT200 --- its PF- and arrow- keys are different, but all those
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
32 ;; are really set up by the terminal initialization code, which mines them
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
33 ;; out of termcap. This package is here to define the keypad comma, dash
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
34 ;; and period (which aren't in termcap's repertoire) and the function for
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
35 ;; changing from 80 to 132 columns & vv.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
36
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
37 ;;; Code:
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
38
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
39 ;; Set up function-key-map entries that termcap and terminfo don't know.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
40 (load "term/lk201" nil t)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
41
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
42 ;;; Controlling the screen width.
622
11502791fc1c [xemacs-hg @ 2001-06-22 01:49:57 by ben]
ben
parents: 0
diff changeset
43 (defvar vt100-wide-mode (= (frame-width) 132)
0
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
44 "t if vt100 is in 132-column mode.")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
45
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
46 (defun vt100-wide-mode (&optional arg)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
47 "Toggle 132/80 column mode for vt100s.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
48 With positive argument, switch to 132-column mode.
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
49 With negative argument, switch to 80-column mode."
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
50 (interactive "P")
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
51 (setq vt100-wide-mode
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
52 (if (null arg) (not vt100-wide-mode)
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
53 (> (prefix-numeric-value arg) 0)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
54 (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
55 (set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
56
376386a54a3c Import from CVS: tag r19-14
cvs
parents:
diff changeset
57 ;;; vt100.el ends here