# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 732425834 0
# Node ID f1324e61f9fddaaf0cf7018869b5640b46e3038a
# Parent  8638238fa65fa5cadeecbfb078dc618e2c28ebac
As many key cookies as possible renamed to fit the new conventions
documented is lisp/term/README.

diff -r 8638238fa65f -r f1324e61f9fd lisp/term/tvi970.el
--- a/lisp/term/tvi970.el	Thu Mar 18 03:35:08 1993 +0000
+++ b/lisp/term/tvi970.el	Thu Mar 18 03:37:14 1993 +0000
@@ -43,13 +43,14 @@
 	  ;; ("\eOR"	[kp-f3])
 	  ;; ("\eOS"	[kp-f4])
 
-	  ;; These are set by terminfo
+	  ;; These might br set by terminfo
 	  ("\e[H"	[home])
 	  ("\e[Z"	[backtab])
 	  ("\e[i"	[print])
 	  ("\e[@"	[insert])
 	  ("\e[L"	[insertline])
 	  ("\e[M"	[deleteline])
+	  ("\e[U"	[next])		;; actually the `page' key
 
 	  ;; These won't be set up by either
 	  ("\eOm"	[kp-subtract])
@@ -58,22 +59,21 @@
 	  ("\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[K"	[key_eol])	;; Not an X keysym
+	  ("\e[J"	[key_eos])	;; Not an X keysym
+	  ("\e[2J"	[key_clear])	;; Not an X keysym
+	  ("\e[P"	[key_dc])	;; 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[?1i"	[key_sprint])	;; Not an X keysym
+	  ("\e[4h"	[key_sic])	;; 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[1Q"	[key_sdl])	;; Not an X keysym
+	  ("\e[19l"	[key_seol])	;; 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