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