;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:19 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/term/tvi970.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`tvi970.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\302\303\"\204 \304\303\305 #\210\306\307\310\"\210\311\311\312W\2034 \304\313\314	\315\\\"\316\317\313\320	\"!!#\210	T\211\202 )\311\311\321W\203j \304\313\322	\323\\\"\316\317\313\324	T\"!!#\210\304\313\322	\325\\\"\316\317\313\326	T\"!!#\210	T\211\2028 )\302\207" [function-key-map i lookup-key "[" define-key make-keymap mapcar #[(key-binding) "\302	@	A@#\207" [function-key-map key-binding define-key] 4] (("[H" [home]) ("[Z" [backtab]) ("[i" [print]) ("[@" [insert]) ("[L" [insertline]) ("[M" [deleteline]) ("[U" [next]) ("Om" [kp-subtract]) ("Ol" [kp-separator]) ("On" [kp-decimal]) ("OM" [kp-enter]) ("[K" [key_eol]) ("[J" [key_eos]) ("[2J" [key_clear]) ("[P" [key_dc]) ("[g" [S-tab]) ("[2N" [clearentry]) ("[2K" [S-clearentry]) ("[E" [10]) ("[g" [S-backtab]) ("[?1i" [key_sprint]) ("[4h" [key_sic]) ("[4l" [S-delete]) ("[Q" [S-insertline]) ("[1Q" [key_sdl]) ("[19l" [key_seol]) ("[19h" [S-erasepage]) ("[V" [S-page]) ("S" [send]) ("5" [S-send])) 0 10 format "O%c" 112 vector intern "kp-%d" 16 "?%c" 97 "f%d" 65 "S-f%d"] 9)
#@150 The terminal should be in numeric keypad mode iff this variable is non-nil.
Do not set this variable!  Call the function ``tvi970-set-keypad-mode''.
(defvar tvi970-keypad-numeric nil (#$ . 1709))
#@460 Set the current mode of the TVI 970 numeric keypad.
In ``numeric keypad mode'', the number keys on the keypad act as
ordinary digits.  In ``alternate keypad mode'', the keys send distinct
escape sequences, meaning that they can have their own bindings,
independent of the normal number keys.
With no argument, toggle between the two possible modes.
With a positive argument, select alternate keypad mode.
With a negative argument, select numeric keypad mode.
(defalias 'tvi970-set-keypad-mode #[(&optional arg) "\204	 	?\202 \302!\303V\304	\203 \305\202 \306!\207" [arg tvi970-keypad-numeric prefix-numeric-value 0 send-string-to-terminal "=" ">"] 2 (#$ . 1912) "P"])
(tvi970-set-keypad-mode 1)