Commit a97beda4 authored by Eric S. Raymond's avatar Eric S. Raymond
Browse files

Added headers, changes some keycap names.

parent 864a714e
;;; Terminal support for the Televideo 970.
;;; Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992
;;; tvi970.el --- terminal support for the Televideo 970
;; Author: Jim Blandy <jimb@occs.cs.oberlin.edu>, January 1992
;; Keywords: terminals
;; Copyright (C) 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
;;; Code:
;;; Define the escape codes sent by the function keys.
(or (lookup-key function-key-map "\e[")
(define-key function-key-map "\e[" (make-keymap)))
(or (lookup-key function-key-map "\eO")
(define-key function-key-map "\eO" (make-keymap)))
;; (or (lookup-key function-key-map "\eO")
;; (define-key function-key-map "\eO" (make-keymap)))
;; Miscellaneous keys
(mapcar (function (lambda (key-binding)
(define-key function-key-map
(car key-binding) (nth 1 key-binding))))
'(("\e[H" [home])
("\e[Z" [backtab])
("\e[i" [print])
("\e[2J" [clear])
("\e[@" [insert])
("\e[P" [delete])
("\e[L" [insertline])
("\e[M" [deleteline])
("\e[K" [eraseline])
("\e[J" [erasepage])
("\e[U" [page])
("\e[g" [S-tab])
("\e[2N" [clearentry])
("\e[2K" [S-clearentry])
("\e[E" [?\C-j])
("\e[g" [S-backtab])
("\e[?1i" [S-print])
("\e[4h" [S-insert])
("\e[4l" [S-delete])
("\e[Q" [S-insertline])
("\e[1Q" [S-deleteline])
("\e[19l" [S-eraseline])
("\e[19h" [S-erasepage])
("\e[V" [S-page])
("\eS" [send])
("\e5" [S-send])
("\eOm" [kp-subtract])
("\eOl" [kp-separator])
("\eOn" [kp-decimal])
("\eOM" [enter])
("\eOP" [kp-f1])
("\eOQ" [kp-f2])
("\eOR" [kp-f3])
("\eOS" [kp-f4])))
'(
;; These are set up by termcap or terminfo
;; ("\eOP" [kp-f1])
;; ("\eOQ" [kp-f2])
;; ("\eOR" [kp-f3])
;; ("\eOS" [kp-f4])
;; These are set by terminfo
("\e[H" [home])
("\e[Z" [backtab])
("\e[i" [print])
("\e[@" [insert])
("\e[L" [insertline])
("\e[M" [deleteline])
;; These won't be set up by either
("\eOm" [kp-subtract])
("\eOl" [kp-separator])
("\eOn" [kp-decimal])
("\eOM" [kp-enter])
;; These won't be set up by either either
("\e[K" [eraseline]) ;; Not an X keysym
("\e[J" [erasepage]) ;; Not an X keysym
("\e[2J" [clear]) ;; Not an X keysym
("\e[P" [delete]) ;; Not an X keysym
("\e[U" [page]) ;; Not an X keysym
("\e[g" [S-tab]) ;; Not an X keysym
("\e[2N" [clearentry]) ;; Not an X keysym
("\e[2K" [S-clearentry]) ;; Not an X keysym
("\e[E" [?\C-j]) ;; Not an X keysym
("\e[g" [S-backtab]) ;; Not an X keysym
("\e[?1i" [S-print]) ;; Not an X keysym
("\e[4h" [S-insert]) ;; Not an X keysym
("\e[4l" [S-delete]) ;; Not an X keysym
("\e[Q" [S-insertline]) ;; Not an X keysym
("\e[1Q" [S-deleteline]) ;; Not an X keysym
("\e[19l" [S-eraseline]) ;; Not an X keysym
("\e[19h" [S-erasepage]) ;; Not an X keysym
("\e[V" [S-page]) ;; Not an X keysym
("\eS" [send]) ;; Not an X keysym
("\e5" [S-send]) ;; Not an X keysym
))
;; The numeric keypad keys.
(let ((i 0))
(while (< i 10)
......@@ -87,3 +121,5 @@ With a negative argument, select numeric keypad mode."
(send-string-to-terminal (if tvi970-keypad-numeric "\e=" "\e>")))
(tvi970-set-keypad-mode 1)
;;; tv970 ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment