%PDF- <> %âãÏÓ endobj 2 0 obj <> endobj 3 0 obj <>/ExtGState<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI] >>/Annots[ 28 0 R 29 0 R] /MediaBox[ 0 0 595.5 842.25] /Contents 4 0 R/Group<>/Tabs/S>> endobj ºaâÚÎΞ-ÌE1ÍØÄ÷{òò2ÿ ÛÖ^ÔÀá TÎ{¦?§®¥kuµùÕ5sLOšuY>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<>endobj 2 0 obj<> endobj 2 0 obj<>endobj 2 0 obj<>es 3 0 R>> endobj 2 0 obj<> ox[ 0.000000 0.000000 609.600000 935.600000]/Fi endobj 3 0 obj<> endobj 7 1 obj<>/ProcSet[/PDF/Text/ImageB/ImageC/ImageI]>>/Subtype/Form>> stream
;ELC ;;; Compiled ;;; in Emacs version 25.2.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\"!!#\210T\211\202$ *\321\312\fW\203z \310\313\322\323\\\"\316\317\313\324T\"!!#\210\310\313\322\325\\\"\316\317\313\326T\"!!#\210T\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 (#$ . 1474)]) #@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 (#$ . 1745) (list (or current-prefix-arg 'toggle))]) #@187 Hook run after entering or leaving `tvi970-set-keypad-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar tvi970-set-keypad-mode-hook nil (#$ . 3014))