home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
demacs-5.arj
/
J3100.ELC
< prev
next >
Wrap
Text File
|
1991-12-12
|
5KB
|
105 lines
(defun j3100-assign-special-key nil (byte-code "└┴!ê└┬!ê└├!ê└─!ê└┼!ê└╞!ê└╟!ê└╚!ê└╔!ê└╩!ê└╦!ê└╠!ê└═!ê└╬!ê└╧!ê└╨!ê└╤!ê└╥!ê└╙!ê└╘!ê└╒!ê└╓!ê└╫!ê└╪!ê└┘!ê└┌!ê└█!ê└▄!ê└▌!ê└▐!ê└▀!ê└α!ê└ß!ê└Γ!ê└π!ê└Σ!ê└σ!ê└µ!ê└τ!ê└Φ!ç" [send-string-to-terminal "9;\"O;\"p" "0;\"O<\"p" "1;\"O=\"p" "2;\"O>\"p" "3;\"O?\"p" "4;\"O@\"p" "5;\"OA\"p" "6;\"OB\"p" "7;\"OC\"p" "8;\"OD\"p" "1;\"<\"p" "2;\"\"p" "3;\"v\"p" "5;\"\"p" "7;\"\"p" "9;\">\"p" "0;\"\"p" "1;\"\"p" "2;\"OR\"p" "3;\"\"p" "4;\"OT\"p" "5;\"OU\"p" "6;\"OV\"p" "7;\"OW\"p" "8;\"OX\"p" "9;\"OY\"p" "0;\"OZ\"p" "1;\"O[\"p" "2;\"O\\\"p" "3;\"O]\"p" "4;\"O^\"p" "5;\"O_\"p" "6;\"O`\"p" "7;\"Oa\"p" "8;\"Ob\"p" "9;\"Oc\"p" "00;\"Od\"p" "01;\"Oe\"p" "02;\"Of\"p" "03;\"Og\"p"] 41))
(defun j3100-cancel-special-key nil (byte-code "└┴!ê└┬!ê└├!ê└─!ê└┼!ê└╞!ê└╟!ê└╚!ê└╔!ê└╩!ê└╦!ê└╠!ê└═!ê└╬!ê└╧!ê└╨!ê└╤!ê└╥!ê└╙!ê└╘!ê└╒!ê└╓!ê└╫!ê└╪!ê└┘!ê└┌!ê└█!ê└▄!ê└▌!ê└▐!ê└▀!ê└α!ê└ß!ê└Γ!ê└π!ê└Σ!ê└σ!ê└µ!ê└τ!ê└Φ!ç" [send-string-to-terminal "9;0;59p" "0;0;60p" "1;0;61p" "2;0;62p" "3;0;63p" "4;0;64p" "5;0;65p" "6;0;66p" "7;0;67p" "8;0;68p" "1;0;71p" "2;0;72p" "3;0;73p" "5;0;75p" "7;0;77p" "9;0;79p" "0;0;80p" "1;0;81p" "2;0;82p" "3;0;83p" "4;0;84p" "5;0;85p" "6;0;86p" "7;0;87p" "8;0;88p" "9;0;89p" "0;0;90p" "1;0;91p" "2;0;92p" "3;0;93p" "4;0;94p" "5;0;95p" "6;0;96p" "7;0;97p" "8;0;98p" "9;0;99p" "00;0;100p" "01;0;101p" "02;0;102p" "03;0;103p"] 41))
(defvar j3100-map (make-keymap) "\
The j3100-map maps the function keys on the TOSHIBA J-3100 keyboard.")
(define-key j3100-map ";" (quote help-for-help))
(define-key j3100-map "T" (quote describe-mode))
(define-key j3100-map "^" (quote describe-key))
(define-key j3100-map "<" (quote other-window))
(define-key j3100-map "U" (quote switch-to-buffer))
(define-key j3100-map "_" (quote list-buffers))
(define-key j3100-map "=" (quote delete-other-windows))
(define-key j3100-map "V" (quote delete-window))
(define-key j3100-map "`" (quote scroll-other-window))
(define-key j3100-map ">" (quote split-window-vertically))
(define-key j3100-map "W" (quote enlarge-window))
(define-key j3100-map "a" (quote shrink-window))
(define-key j3100-map "?" (quote split-window-horizontally))
(define-key j3100-map "X" (quote enlarge-window-horizontally))
(define-key j3100-map "b" (quote shrink-window-horizontally))
(define-key j3100-map "@" (quote copy-region-as-kill))
(define-key j3100-map "Y" (quote kill-region))
(define-key j3100-map "c" (quote yank))
(define-key j3100-map "A" (quote goto-line))
(define-key j3100-map "Z" (quote isearch-forward))
(define-key j3100-map "d" (quote query-replace))
(define-key j3100-map "B" (quote find-file))
(define-key j3100-map "[" (quote save-buffer))
(define-key j3100-map "e" (quote write-file))
(define-key j3100-map "C" (quote dired))
(define-key j3100-map "\\" (quote compile))
(define-key j3100-map "f" (quote repeat-complex-command))
(define-key j3100-map "D" (quote shell-command))
(define-key j3100-map "]" (quote suspend-emacs))
(define-key j3100-map "g" (quote save-buffers-kill-emacs))
(define-key j3100-map "R" (quote set-mark-command))
(define-key esc-map "O" j3100-map)
(defvar j3100-map-hooks nil "\
List of forms to evaluate after setting j3100-map.")
(let ((hooks j3100-map-hooks)) (while hooks (eval (car hooks)) (setq hooks (cdr hooks))))
(defvar console-is-with-function-key-label nil "\
If value is t, the console consists of emacs windows and function key label.")
(defun redraw-display-with-function-key-label nil (byte-code "└ ê┴ ç" [redraw-display put-function-key-label] 3))
(defun recenter-with-function-key-label (&optional arg) "\
recenter and display function key label." (interactive) (byte-code "┴ê┬!ê├ ç" [arg nil recenter put-function-key-label] 3))
(defun setup-console-with-function-key-label nil (byte-code "└ ê┴┬!ê├─!ê┼╞!ê╟ ê╚╔!ç" [delete-other-windows enlarge-window 100 shrink-window 4 message "" redraw-display-with-function-key-label send-string-to-terminal ""] 7))
(defun put-function-key-label nil (byte-code "è┴┬!ê├─┼╞╟ ╚Z\"╚╔#!)ê└ç" [nil message "" send-string-to-terminal convert-string-kanji-code format "%d;1f | F.1 | F.2 | F.3 | F.4 | F.5 | F.6 | F.7 | F.8 | F.9 | F.10 |
|Ñ╪ÑδÑ╫ |┴δ░▄╞░ |┴┤╠╠▓╜ |▓ú╩¼│Σ |╜─╩¼│Σ |Ñ│Ñ╘í╝ |░▄╞░ |ÑΩí╝Ñ╔ |DIR |Ñ│Ñ▐Ñ≤Ñ╔|
s|ÑΓí╝Ñ╔ |┴δ╗╪─Ω |┴δ╩─║┐ |▓ú│╚┬τ |╜─│╚┬τ |ѽÑ├Ñ╚ |├╡║≈ |Ñ╗í╝Ñ╓ |MAKE |Ñ╖ѺÑδ |
c|╕░▓≥└Γ |┴δ░∞═≈ |┬╛┴δ╞░ |▓ú╜╠╛« |╜─╜╠╛« |ÑΣÑ≤Ñ» |├╓┤╣ |ÑΘÑñÑ╚ |╖½╩╓ |╜¬╬╗ |
" screen-height 3 1] 8))
(defun erase-system-function-key-label nil "\
Erase system function key label." (byte-code "└ç" [t] 1))
(defun appear-system-function-key-label nil "\
Appear system function key label." (byte-code "└ç" [t] 1))
(if console-is-with-function-key-label (progn (global-set-key "" (quote recenter-with-function-key-label)) (setup-console-with-function-key-label)))
(j3100-assign-special-key)
(setq meta-flag t)