%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/term/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/term/wyse50.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 wyse50-terminal-map (byte-code "\303 \304\305\211\203\n@\306	@	A@#\210\nA\211\204*)\207" [map key-definition --dolist-tail-- make-sparse-keymap (("" [up]) ("\n" [down]) ("\f" [right]) ("" [left]) ("@
" [f1]) ("A
" [f2]) ("B
" [f3]) ("C
" [f4]) ("D
" [f5]) ("E
" [f6]) ("F
" [f7]) ("G
" [f8]) ("H
" [f9]) ("K" [next]) ("T" [clearline]) ("" [home]) ("" [end]) ("Q" [insert]) ("E" [insertline]) ("R" [deleteline]) ("P" [print]) ("r" [replace]) ("I
" [f10]) ("J
" [f11]) ("K
" [f12]) ("L
" [f13]) ("M
" [f14]) ("N
" [f15]) ("O
" [f16]) ("`
" [f17]) ("a
" [f18]) ("b
" [f19]) ("c
" [f20]) ("d
" [f21]) ("e
" [f22]) ("f
" [f23]) ("g
" [f24]) ("h
" [f25]) ("i
" [f26]) ("j
" [f27]) ("k
" [f28]) ("l
" [f29]) ("m
" [f30]) ("n
" [f31]) ("o
" [f32]) ("I" [key-stab]) ("J" [key-snext]) ("Y" [key-clear]) ("W" [127]) ("
" [funct-up]) ("\n
" [funct-down]) ("\f
" [funct-right]) ("
" [funct-left]) ("

" [funct-return]) ("	
" [funct-tab])) nil define-key] 5))
#@46 Terminal initialization function for wyse50.
(defalias 'terminal-init-wyse50 #[nil "\303!\304	\305\n!\"\210\304\n	\"\210)\306\307\310\"\207" [wyse50-terminal-map m input-decode-map copy-keymap set-keymap-parent keymap-parent add-hook kill-emacs-hook #[nil "\300\301\302 T\303Q!\207" [send-string-to-terminal "a23R" frame-width "CG0"] 4 nil nil]] 4 (#$ . 1429)])
#@293 To be called by `tty-setup-hook'.  Overrides 6 Emacs standard keys
whose functions are then typed as follows:
C-a	Funct Left-arrow
C-h	M-?
LFD	Funct Return, some modes override down-arrow via LFD
C-k	CLR Line
C-l	Scrn CLR
M-r	M-x move-to-window-line, Funct up-arrow or down-arrow are similar
(defalias 'enable-arrow-keys #[nil "\300\301M\207" [enable-arrow-keys nil] 2 (#$ . 1802) nil])
(provide 'term/wyse50)

Zerion Mini Shell 1.0