;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar tvi970-terminal-map (byte-code "\305 \306\307\211\203 \n@\310 @ A@#\210\nA\211\204 *\311\312 \fW\203B \310\313\314 \315\\\"\316\317\313\320 \"!!#\210 T\211\202$ *\321\312 \fW\203z \310\313\322 \323\\\"\316\317\313\324 T\"!!#\210\310\313\322 \325\\\"\316\317\313\326 T\"!!#\210 T\211\202H *)\207" [map key-binding --dolist-tail-- i --dotimes-limit-- make-sparse-keymap (("[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])) nil define-key 10 0 format "O%c" 112 vector intern "kp-%d" 16 "?%c" 97 "f%d" 65 "S-f%d"] 9))
#@46 Terminal initialization function for tvi970.
(defalias 'terminal-init-tvi970 #[nil "\303!\304 \305\n!\"\210\304\n \"\210)\306\307!\207" [tvi970-terminal-map m input-decode-map copy-keymap set-keymap-parent keymap-parent tvi970-set-keypad-mode 1] 4 (#$ . 1472)])
#@465 Toggle alternate keypad mode on TVI 970 keypad.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
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.
(defalias 'tvi970-set-keypad-mode #[(&optional arg) "\303 \304\305\306 \307=\203 \310\305\306\"?\202 \311 !\312V#\210\313\310\305\306\"\203' \314\202( \315!\210\316\317\310\305\306\"\2037 \320\2028 \321\"\210\322\323!\203` \303 \203L \303 \232\203` \324\325\326\310\305\306\"\203[ \327\202\\ \330\n#\210))\331 \210\310\305\306\"\207" [#1=#:last-message arg local current-message set-terminal-parameter nil tvi970-keypad-numeric toggle terminal-parameter prefix-numeric-value 0 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 " in current buffer" message "Tvi970-Set-Keypad mode %sabled%s" "en" "dis" force-mode-line-update] 6 (#$ . 1743) (list (or current-prefix-arg 'toggle))])
(defvar tvi970-set-keypad-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\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.)" provide term/tvi970] 4)
|