home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / demacs / lisp / term / j3100.elc < prev    next >
Encoding:
Text File  |  1991-12-12  |  5.2 KB  |  105 lines
  1.  
  2. (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))
  3.  
  4. (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))
  5.  
  6. (defvar j3100-map (make-keymap) "\
  7. The j3100-map maps the function keys on the TOSHIBA J-3100 keyboard.")
  8.  
  9. (define-key j3100-map ";" (quote help-for-help))
  10.  
  11. (define-key j3100-map "T" (quote describe-mode))
  12.  
  13. (define-key j3100-map "^" (quote describe-key))
  14.  
  15. (define-key j3100-map "<" (quote other-window))
  16.  
  17. (define-key j3100-map "U" (quote switch-to-buffer))
  18.  
  19. (define-key j3100-map "_" (quote list-buffers))
  20.  
  21. (define-key j3100-map "=" (quote delete-other-windows))
  22.  
  23. (define-key j3100-map "V" (quote delete-window))
  24.  
  25. (define-key j3100-map "`" (quote scroll-other-window))
  26.  
  27. (define-key j3100-map ">" (quote split-window-vertically))
  28.  
  29. (define-key j3100-map "W" (quote enlarge-window))
  30.  
  31. (define-key j3100-map "a" (quote shrink-window))
  32.  
  33. (define-key j3100-map "?" (quote split-window-horizontally))
  34.  
  35. (define-key j3100-map "X" (quote enlarge-window-horizontally))
  36.  
  37. (define-key j3100-map "b" (quote shrink-window-horizontally))
  38.  
  39. (define-key j3100-map "@" (quote copy-region-as-kill))
  40.  
  41. (define-key j3100-map "Y" (quote kill-region))
  42.  
  43. (define-key j3100-map "c" (quote yank))
  44.  
  45. (define-key j3100-map "A" (quote goto-line))
  46.  
  47. (define-key j3100-map "Z" (quote isearch-forward))
  48.  
  49. (define-key j3100-map "d" (quote query-replace))
  50.  
  51. (define-key j3100-map "B" (quote find-file))
  52.  
  53. (define-key j3100-map "[" (quote save-buffer))
  54.  
  55. (define-key j3100-map "e" (quote write-file))
  56.  
  57. (define-key j3100-map "C" (quote dired))
  58.  
  59. (define-key j3100-map "\\" (quote compile))
  60.  
  61. (define-key j3100-map "f" (quote repeat-complex-command))
  62.  
  63. (define-key j3100-map "D" (quote shell-command))
  64.  
  65. (define-key j3100-map "]" (quote suspend-emacs))
  66.  
  67. (define-key j3100-map "g" (quote save-buffers-kill-emacs))
  68.  
  69. (define-key j3100-map "R" (quote set-mark-command))
  70.  
  71. (define-key esc-map "O" j3100-map)
  72.  
  73. (defvar j3100-map-hooks nil "\
  74. List of forms to evaluate after setting j3100-map.")
  75.  
  76. (let ((hooks j3100-map-hooks)) (while hooks (eval (car hooks)) (setq hooks (cdr hooks))))
  77.  
  78. (defvar console-is-with-function-key-label nil "\
  79. If value is t, the console consists of emacs windows and function key label.")
  80.  
  81. (defun redraw-display-with-function-key-label nil (byte-code "└ ê┴ ç" [redraw-display put-function-key-label] 3))
  82.  
  83. (defun recenter-with-function-key-label (&optional arg) "\
  84.   recenter and display function key label." (interactive) (byte-code "┴ê┬!ê├ ç" [arg nil recenter put-function-key-label] 3))
  85.  
  86. (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))
  87.  
  88. (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   |
  89.  |Ñ╪ÑδÑ╫ |┴δ░▄╞░ |┴┤╠╠▓╜ |▓ú╩¼│Σ |╜─╩¼│Σ |Ñ│Ñ╘í╝ |░▄╞░ |ÑΩí╝Ñ╔ |DIR  |Ñ│Ñ▐Ñ≤Ñ╔|
  90. s|ÑΓí╝Ñ╔ |┴δ╗╪─Ω |┴δ╩─║┐ |▓ú│╚┬τ |╜─│╚┬τ |ѽÑ├Ñ╚ |├╡║≈ |Ñ╗í╝Ñ╓ |MAKE |Ñ╖ѺÑδ  |
  91. c|╕░▓≥└Γ |┴δ░∞═≈ |┬╛┴δ╞░ |▓ú╜╠╛« |╜─╜╠╛« |ÑΣÑ≤Ñ» |├╓┤╣ |ÑΘÑñÑ╚ |╖½╩╓ |╜¬╬╗    |
  92. " screen-height 3 1] 8))
  93.  
  94. (defun erase-system-function-key-label nil "\
  95. Erase system function key label." (byte-code "└ç" [t] 1))
  96.  
  97. (defun appear-system-function-key-label nil "\
  98. Appear system function key label." (byte-code "└ç" [t] 1))
  99.  
  100. (if console-is-with-function-key-label (progn (global-set-key " " (quote recenter-with-function-key-label)) (setup-console-with-function-key-label)))
  101.  
  102. (j3100-assign-special-key)
  103.  
  104. (setq meta-flag t)
  105.