home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
editors
/
demacs-5.arj
/
IBMPC.ELC
< prev
next >
Wrap
Text File
|
1991-12-13
|
4KB
|
104 lines
(defun ibmpc-assign-special-key nil (byte-code "└┴!ê└┬!ê└├!ê└─!ê└┼!ê└╞!ê└╟!ê└╚!ê└╔!ç" [send-string-to-terminal "1;\"<\"p" "2;\"\"p" "3;\"v\"p" "5;\"\"p" "7;\"\"p" "9;\">\"p" "0;\"\"p" "1;\"\"p" "3;\"\"p"] 10))
(defun ibmpc-cancel-special-key nil (byte-code "└┴!ê└┬!ê└├!ê└─!ê└┼!ê└╞!ê└╟!ê└╚!ê└╔!ç" [send-string-to-terminal "1;0;71p" "2;0;72p" "3;0;73p" "5;0;75p" "7;0;77p" "9;0;79p" "0;0;80p" "1;0;81p" "3;0;83p"] 10))
(defvar ibmpc-map (make-keymap) "\
The ibmpc-map maps the function keys on the IBMPC keyboard.")
(define-key ibmpc-map ";" (quote help-for-help))
(define-key ibmpc-map "T" (quote describe-mode))
(define-key ibmpc-map "^" (quote describe-key))
(define-key ibmpc-map "<" (quote other-window))
(define-key ibmpc-map "U" (quote switch-to-buffer))
(define-key ibmpc-map "_" (quote list-buffers))
(define-key ibmpc-map "=" (quote delete-other-windows))
(define-key ibmpc-map "V" (quote delete-window))
(define-key ibmpc-map "`" (quote scroll-other-window))
(define-key ibmpc-map ">" (quote split-window-vertically))
(define-key ibmpc-map "W" (quote enlarge-window))
(define-key ibmpc-map "a" (quote shrink-window))
(define-key ibmpc-map "?" (quote split-window-horizontally))
(define-key ibmpc-map "X" (quote enlarge-window-horizontally))
(define-key ibmpc-map "b" (quote shrink-window-horizontally))
(define-key ibmpc-map "@" (quote copy-region-as-kill))
(define-key ibmpc-map "Y" (quote kill-region))
(define-key ibmpc-map "c" (quote yank))
(define-key ibmpc-map "A" (quote goto-line))
(define-key ibmpc-map "Z" (quote isearch-forward))
(define-key ibmpc-map "d" (quote query-replace))
(define-key ibmpc-map "B" (quote find-file))
(define-key ibmpc-map "[" (quote save-buffer))
(define-key ibmpc-map "e" (quote write-file))
(define-key ibmpc-map "C" (quote dired))
(define-key ibmpc-map "\\" (quote compile))
(define-key ibmpc-map "e" (quote repeat-complex-command))
(define-key ibmpc-map "D" (quote shell-command))
(define-key ibmpc-map "]" (quote suspend-emacs))
(define-key ibmpc-map "g" (quote save-buffers-kill-emacs))
(define-key ibmpc-map "R" (quote set-mark-command))
(define-key ibmpc-map " " (quote set-mark-command))
(define-key global-map " " ibmpc-map)
(defvar ibmpc-map-hooks nil "\
List of forms to evaluate after setting ibmpc-map.")
(let ((hooks ibmpc-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 format "%d;1f | F.1 | F.2 | F.3 | F.4 | F.5 | F.6 | F.7 | F.8 | F.9 | F.10 |
|help | nextW | delOW |splitWH |splitWV |copy | goto | read |dired |command |
s|mode |switchW| delW |largeWH |largeWV |kill |search | save | make |suspend |
c|key |buffers|scrlOW |shrnkWH |shrnkWV |yank |replace|write |repeat| quit |" screen-height 3] 7))
(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)))
(ibmpc-assign-special-key)