Mercurial > hg > xemacs-beta

comparison lisp/term/vt100.el @ 622:11502791fc1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-22 01:49:57 by ben] dired-msw.c: Fix problem noted by Michael Sperber with directories containing [] and code that destructively modifies an existing string. term\AT386.el: Fix warnings. term\apollo.el: Removed. Kill kill kill. Sync with FSF and remove most crap. term\linux.el: Removed. Sync with FSF. Don't define most defns, because they are automatically defined by termcap. But do add defns for keys that normally get defined as f13, f14, etc. and really ought to be shift-f3, shift-f4, etc. (NOTE: I did this based on Cygwin, which emulates the Linux console. I would appreciate it if someone on Linux could verify.) term\cygwin.el: New. Load term/linux. term\lk201.el, term\news.el, term\vt100.el: Sync with FSF. Fix warnings. dialog-gtk.el: Fix warning. For 21.4: help.el, update-elc.el: Compile in proper order. Maybe for 21.4: keydefs.el: Add a defn for M-?, previously undefined, to access help -- in case the terminal is not set up right, or f1 gets redefined. README: Rewrite.
author ben
date Fri, 22 Jun 2001 01:50:04 +0000
parents 376386a54a3c
children 85bd42a1e544 308d34e9f07d
comparison
equal deleted inserted replaced
621:29117767b6b8 622:11502791fc1c
1 ;;; vt100.el --- define VT100 function key sequences in function-key-map 1 ;;; vt100.el --- define VT100 function key sequences in function-key-map
2
3 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
2 4
3 ;; Author: FSF 5 ;; Author: FSF
4 ;; Keywords: terminals 6 ;; Keywords: terminals
5 7
6 ;; Copyright (C) 1989, 1993 Free Software Foundation, Inc.
7 ;;; This file is part of GNU Emacs. 8 ;;; This file is part of GNU Emacs.
8 ;;; 9 ;;;
9 ;;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;;; 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 ;;; 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 ;;; the Free Software Foundation; either version 2, or (at your option)
17 ;;; GNU General Public License for more details. 18 ;;; GNU General Public License for more details.
18 ;;; 19 ;;;
19 ;;; You should have received a copy of the GNU General Public License 20 ;;; 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 ;;; along with GNU Emacs; see the file COPYING. If not, write to
21 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;;; Synched up with: FSF 21.0.103.
22 25
23 ;;; Commentary: 26 ;;; Commentary:
24 27
25 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18. 28 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
26 29
35 38
36 ;; Set up function-key-map entries that termcap and terminfo don't know. 39 ;; Set up function-key-map entries that termcap and terminfo don't know.
37 (load "term/lk201" nil t) 40 (load "term/lk201" nil t)
38 41
39 ;;; Controlling the screen width. 42 ;;; Controlling the screen width.
40 (defconst vt100-wide-mode (= (frame-width) 132) 43 (defvar vt100-wide-mode (= (frame-width) 132)
41 "t if vt100 is in 132-column mode.") 44 "t if vt100 is in 132-column mode.")
42 45
43 (defun vt100-wide-mode (&optional arg) 46 (defun vt100-wide-mode (&optional arg)
44 "Toggle 132/80 column mode for vt100s. 47 "Toggle 132/80 column mode for vt100s.
45 With positive argument, switch to 132-column mode. 48 With positive argument, switch to 132-column mode.