;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(defvar tvi970-terminal-map (byte-code "\300 \301\211\203\211@\302@A@#\210
A\266\202\202\210\303\211\304W\203;\302\305\306\307\\\"\310\311\305\312\"!!#\210\211T\262
\202\210\303\211\313W\203r\302\305\314\315\\\"\310\311\305\316T\"!!#\210\302\305\314\317\\\"\310\311\305\320T\"!!#\210\211T\262
\202=\210\207" [make-sparse-keymap (("" [home]) ("" [backtab]) ("" [print]) ("[@" [insert]) ("" [insertline]) ("" [deleteline]) ("" [next]) ("Om" [kp-subtract]) ("Ol" [kp-separator]) ("On" [kp-decimal]) ("OM" [kp-enter]) ("" [key_eol]) ("" [key_eos]) ("" [key_clear]) ("" [key_dc]) ("" [S-tab]) ("" [clearentry]) ("" [S-clearentry]) ("" [10]) ("" [S-backtab]) ("[?1i" [key_sprint]) ("" [key_sic]) ("" [S-delete]) ("" [S-insertline]) ("" [key_sdl]) ("" [key_seol]) ("" [S-erasepage]) ("" [S-page]) ("S" [send]) ("5" [S-send])) define-key 0 10 format "O%c" 112 vector intern "kp-%d" 16 "?%c" 97 "f%d" 65 "S-f%d"] 10))
#@46 Terminal initialization function for tvi970.
(defalias 'terminal-init-tvi970 #[0 "\302!\303
\304	!\"\210\303	\"\266\305\306!\207" [tvi970-terminal-map input-decode-map copy-keymap set-keymap-parent keymap-parent tvi970-set-keypad-mode 1] 5 (#$ . 1103)])
#@907 Toggle alternate keypad mode on TVI 970 keypad.

This is a minor mode.  If called interactively, toggle the
`Tvi970-Set-Keypad mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(terminal-parameter nil \='tvi970-keypad-numeric)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

In alternate keypad mode, the keys send distinct escape
sequences, meaning that they can have their own bindings,
independent of the normal number keys.

When disabled, the terminal enters numeric keypad mode, in
which the keypad's keys act as ordinary digits.

(fn &optional ARG)
(defalias 'tvi970-set-keypad-mode #[256 "\301 \302\303\304\305=\203\306\303\304\"?\202#\247\203\"\307W\203\"\303\202#\310#\210\311\300!\203;\312\313\"\306\303\304\"\203;\313B\314\306\303\304\"\203G\315\202H\316!\210\317\320\306\303\304\"\203W\321\202X\322\"\210\323\324!\203}\301 \203l\211\301 \232\203}\325\326\306\303\304\"\203y\327\202z\330\331#\210\210\332 \210\306\303\304\"\207" [local-minor-modes current-message set-terminal-parameter nil tvi970-keypad-numeric toggle terminal-parameter 1 t boundp delq tvi970-set-keypad-mode send-string-to-terminal "=" ">" run-hooks tvi970-set-keypad-mode-hook tvi970-set-keypad-mode-on-hook tvi970-set-keypad-mode-off-hook called-interactively-p any message "Tvi970-Set-Keypad mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 1367) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar tvi970-set-keypad-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\210\310\311!\207" [tvi970-set-keypad-mode-hook variable-documentation put "Hook run after entering or leaving `tvi970-set-keypad-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil provide term/tvi970] 4)