;ELC ;;; compiled by rms@churchy.gnu.ai.mit.edu on Thu Apr 20 22:09:04 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/term/wyse50.el ;;; emacs version 19.28.90.4. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/term/wyse50.el' was compiled for Emacs 19")) (byte-code "À Âà #ˆÄÅÆ\"‡" [define-key function-key-map "" make-keymap mapcar #[(key-definition) "À \n@\nA@#‡" [define-key function-key-map key-definition] 4] ((" " [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]))] 4) #@292 To be called by term-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 "ÀÁÂ\"ˆÃÄM‡" [mapcar #[(key-definition) "À @ A@\"‡" [global-set-key key-definition] 3] (("" nil) (" " nil) ("\n" nil) ("\f" nil) ("" nil) ("r" nil)) enable-arrow-keys nil] 3 (#$ . 1496) nil]) (add-hook (quote kill-emacs-hook) #[nil "ÀÁ TÃQ!‡" [send-string-to-terminal "a23R" frame-width "CG0"] 4 nil nil])