Current File : //usr/local/share/emacs/27.2/lisp/term/tvi970.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)])
#@561 Toggle alternate keypad mode on TVI 970 keypad.
If called interactively, enable Tvi970-Set-Keypad mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
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)
Mini Shell