annotate lisp/term/vt100.el @ 1330:4542b72c005e
[xemacs-hg @ 2003-03-01 07:25:26 by ben]
build patch
Makefile.in.in: Move src deletions to src/Makefile.in.in.
dump-paths.el, dumped-lisp.el: Delete. Combine stuff into setup-paths.el.
find-paths.el: Removed.
Make this file contain generic routines only. Move stuff to
compute Emacs roots to setup-paths.el.
startup.el: Removed.
Move these variables into setup-paths.el.
setup-paths.el, startup.el: Removed.
Combine all high-level code for computing the paths into
setup-paths.el. Create new function startup-find-load-path to
encapsulate all logic for computing `load-path'. Eliminate
invocation-directory and invocation-name parameters since
there is no point (false generality) -- the code references
other globals, which cannot be specified. Eliminate some code
duplicated between setup-paths.el and startup.el. Clean up
the debug-paths code and output load-path in addition.
Add logic to paths-emacs-root-p to support separated source
and build trees.
loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Rewrite to allow for separated source and build trees, as may occur
in MS Windows.
NOTE TO BUILD HACKERS:
loadup.el, make-docfile.el, update-elc.el and update-elc-2.el made two
assumptions that are no longer correct:
(1) The source and build trees are in the same place.
(2) They can make assumptions about where `.' is.
These files now compute the locations of the source and build
roots at the top of the file. *ALL* constant file names or path
snippets must now be made absolute using expand-file-name and one
of these roots.
dumped-lisp.el, packages.el: Removed.
Remove some unused lists of Lisp files. packages-hardcoded-lisp
(empty, in any case) moved to dumped-lisp.el.
startup.el: When a compiled init file is out-of-date wrt the uncompiled
version, load the uncompiled version and issue a nasty warning.
update-elc-2.el: Force touching of auto-autoloads files when REBUILD_AUTOLOADS
was set.
update-elc.el: Fix code that checks whether dumping is necessary to check against
xemacs.dmp, not xemacs.exe, when Unix and pdump.
lwlib-Xm.c: Fix compile warning.
README, config.inc.samp, xemacs.mak: -- Major reorganization and cleanup.
-- Add support for separated build tree and source tree.
-- Delete all support for X Windows building, since it's
totally bit-rotten and will never be fixed up. Instruct
people to use Cygwin if they want such support.
make-build-dir: New script to create a skeleton build tree for use with
separated build and source tree compilation.
m/acorn.h, m/alliant-2800.h, m/alliant.h, m/altos.h, m/amdahl.h, m/arm.h, m/att3b.h, m/aviion.h, m/clipper.h, m/cnvrgnt.h, m/convex.h, m/cydra5.h, m/delta.h, m/delta88k.h, m/dpx2.h, m/elxsi.h, m/ews4800r.h, m/gould.h, m/hp800.h, m/hp9000s300.h, m/i860.h, m/ibmps2-aix.h, m/ibmrs6000.h, m/ibmrt-aix.h, m/ibmrt.h, m/intel386.h, m/iris4d.h, m/iris5d.h, m/iris6d.h, m/irist.h, m/m68k.h, m/masscomp.h, m/mg1.h, m/mips-nec.h, m/mips-siemens.h, m/mips.h, m/nh3000.h, m/nh4000.h, m/ns32000.h, m/plexus.h, m/powerpc.h, m/sequent-ptx.h, m/sequent.h, m/sgi-challenge.h, m/stride.h, m/tad68k.h, m/targon31.h, m/tekxd88.h, m/template.h, m/tower32.h, m/tower32v3.h, m/ustation.h, m/wicat.h, m/xps100.h, data.c, doc.c, editfns.c, emacs.c, lrecord.h, ntheap.c, process-unix.c, sysdep.c, unexec.c: Delete all support for bit-rotten CANNOT_DUMP. Just use pdump.
Makefile.in.in: Lots o' cleanup. Use names like LISP, SRC instead of
lispdir, srcdir, for consistency with xemacs.mak and the
conventions in the rest of the file. Eliminate use of ${...}
in favor of $(...), to make it easier to move code between
this file and xemacs.mak. Fix dependency handling wrt
NEEDTODUMP to eliminate problems some people (e.g. Vin) have
been seeing with non-GNU makes. Write a long section about
the subtle but oh-so-important differences in dependency
processing between nmake, make, and GNU make. Add
unicode-encapsulate target, from xemacs.mak.
chartab.c, lrecord.h: Fix crash due to attempt to free objects across dump/undump.
author |
ben |
date |
Sat, 01 Mar 2003 07:25:56 +0000 |
parents |
11502791fc1c |
children |
85bd42a1e544 308d34e9f07d |
rev |
line source |
0
|
1 ;;; vt100.el --- define VT100 function key sequences in function-key-map
|
|
2
|
622
|
3 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
|
|
4
|
0
|
5 ;; Author: FSF
|
|
6 ;; Keywords: terminals
|
|
7
|
|
8 ;;; This file is part of GNU Emacs.
|
|
9 ;;;
|
|
10 ;;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
11 ;;; it under the terms of the GNU General Public License as published by
|
|
12 ;;; the Free Software Foundation; either version 2, or (at your option)
|
|
13 ;;; any later version.
|
|
14 ;;;
|
|
15 ;;; GNU Emacs is distributed in the hope that it will be useful,
|
|
16 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
17 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
18 ;;; GNU General Public License for more details.
|
|
19 ;;;
|
|
20 ;;; You should have received a copy of the GNU General Public License
|
|
21 ;;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
23
|
622
|
24 ;;; Synched up with: FSF 21.0.103.
|
|
25
|
0
|
26 ;;; Commentary:
|
|
27
|
|
28 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
|
|
29
|
|
30 ;; Handles all VT100 clones, including the Apollo terminal. Also handles
|
|
31 ;; the VT200 --- its PF- and arrow- keys are different, but all those
|
|
32 ;; are really set up by the terminal initialization code, which mines them
|
|
33 ;; out of termcap. This package is here to define the keypad comma, dash
|
|
34 ;; and period (which aren't in termcap's repertoire) and the function for
|
|
35 ;; changing from 80 to 132 columns & vv.
|
|
36
|
|
37 ;;; Code:
|
|
38
|
|
39 ;; Set up function-key-map entries that termcap and terminfo don't know.
|
|
40 (load "term/lk201" nil t)
|
|
41
|
|
42 ;;; Controlling the screen width.
|
622
|
43 (defvar vt100-wide-mode (= (frame-width) 132)
|
0
|
44 "t if vt100 is in 132-column mode.")
|
|
45
|
|
46 (defun vt100-wide-mode (&optional arg)
|
|
47 "Toggle 132/80 column mode for vt100s.
|
|
48 With positive argument, switch to 132-column mode.
|
|
49 With negative argument, switch to 80-column mode."
|
|
50 (interactive "P")
|
|
51 (setq vt100-wide-mode
|
|
52 (if (null arg) (not vt100-wide-mode)
|
|
53 (> (prefix-numeric-value arg) 0)))
|
|
54 (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l"))
|
|
55 (set-frame-width terminal-frame (if vt100-wide-mode 132 80)))
|
|
56
|
|
57 ;;; vt100.el ends here
|