Mercurial > emacs
view lisp/term/wyse50.el @ 394:5bd386d1a1cc
Initial revision
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 15 Aug 1991 21:29:06 +0000 |
parents | c43fb200671f |
children | 078fa30e9292 |
line wrap: on
line source
; Like all the other files in this dir, this one needs to be redone ; for the new way of handling function keys. ; Terminal mode for Wyse 50 ; should work well for Televideo Tvi 925 though it's an overkill ; Author Daniel Pfeiffer <pfeiffer@cix.cict.fr> january 1991 (require 'keypad) ; at least some of these should be transferred to keypad.el (keypad-default "A" '(lambda () (interactive) ; actually insert an empty line (beginning-of-line) (open-line 1))) (keypad-default "E" 'kill-line) ; (keypad-default "h" 'execute-extended-command) (define-key function-keymap "h" 'execute-extended-command) ; bad, bad !! (keypad-default "H" 'shell-command) (keypad-default "I" '(lambda () (interactive) (insert ? ))) ; works even in overwrite-mode (keypad-default "L" '(lambda () (interactive) ; delete the whole line (beginning-of-line) (kill-line 1))) (keypad-default "M" 'overwrite-mode) (keypad-default "\^e" 'shell) ; F5 (keypad-default "\^f" 'dired) ; F6 (keypad-default "\^g" 'rnews) ; F7 (keypad-default "\^h" 'rmail) ; F8 (keypad-default "\^i" 'delete-other-windows) ; F9 (keypad-default "\^j" 'other-window) ; F10 (keypad-default "\^k" 'split-window-vertically) ; F11 (keypad-default "\^m" 'help-for-help) ; F13 (keypad-default "\^n" 'toggle-screen-width) ; F14 (keypad-default "\^o" 'set-function-key) ; F15 ; Keys that don't conflict with Emacs defaults ; I write \M-x and \C-x for what the user types, \ex and \^x for key sequences (setup-terminal-keymap global-map '(("\M-?" . ?\?) ; Esc ? ("\eI" . ?T) ; Shift Tab ("\eJ" . ?P) ; Shift Prev PAGE ("\eK" . ?N) ; PAGE Next ("\eY" . ?C) ; Shift Scrn CLR ("\eT" . ?E) ; CLR Line ("\^^" . ?h) ; Home ("\M-\^^" . ?H) ; Esc Home ("\eQ" . ?I) ; INS Char ("\eE" . ?A) ; Shift Line INS ("\eW" . ?D) ; DEL Char ("\eR" . ?L))) ; Shift Line DEL ; Print -- put in some extra security (global-set-key "\eP" '(lambda () (interactive) (if (y-or-n-p (concat "Print buffer " (buffer-name) "? ")) (print-buffer)))) ; this is an ugly hack for a nasty problem: ; Wyse 50 takes one character cell to store video attributes (which seems to ; explain width 79 rather than 80, column 1 is not used!!!). ; On killing (C-x C-c) the end inverse code (on column 1 of line 24) ; of the mode line is overwritten AFTER all the y-or-n questions. ; This causes the attribute to remain in effect until the mode line has ; scrolled of the screen. Suspending (C-z) does not cause this problem. ; On such terminals, Emacs should sacrifice the first and last character of ; each mode line, rather than a whole screen column! (setq kill-emacs-hook '(lambda () (interactive) (send-string-to-terminal (concat "\ea23R" (1+ (screen-width)) "C\eG0")))) ; This function does more than its name which was copied from term/vt100.el ; Some more neutral name should be used thru-out term/*.el to simplify ; programming term-setup-hook (defun enable-arrow-keys () "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-a C-a C-h M-? LFD Funct Return, some modes override down-arrow via LFD C-k CLR Line C-l Shift Scrn CLR M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar All special keys except Send, Shift Ins, Shift Home and shifted functions keys are assigned some hopefully useful meaning." (interactive) ; Function keys (define-key global-map "\^a" (define-prefix-command 'Funct-prefix)) ; Arrow keys (setup-terminal-keymap global-map '(("\C-a\C-a" . beginning-of-line) ; for auld lang syne ("\^a\^m\^m" . newline-and-indent) ("\^k" . ?u) ; up-arrow ("\^j" . ?d) ; down-arrow ("\^l" . ?r) ; right-arrow ("\^h" . ?l) ; left-arrow ; Terminal needs both Ins and Repl but Emacs knows how to toggle ; with just one key. No need to override Ins which is "\eq". ("\er" . ?M) ; Repl ("\^a\^i\^m" . ?t) ; Funct Tab ; Function keys F1 thru F16 (we don't define shifted function keys, ; they send the same code with the middle character in lowercase. ; eg. "Shift F2" is the same as "Funct a" which is more mnemonic but ; keypad.el doesn't provide enough codes to accomodate all these) ("\^a@\^m" . 1) ("\^aH\^m" . 9) ("\^aA\^m" . 2) ("\^aI\^m" . 10) ("\^aB\^m" . 3) ("\^aJ\^m" . 11) ("\^aC\^m" . 4) ("\^aK\^m" . 12) ("\^aD\^m" . 5) ("\^aL\^m" . 13) ("\^aE\^m" . 6) ("\^aM\^m" . 14) ("\^aF\^m" . 7) ("\^aN\^m" . 15) ("\^aG\^m" . 8) ("\^aO\^m" . 16) ; Funct Arrow keys ("\^a\^k\^m" . (lambda (n) (interactive "p") (move-to-window-line (1- n)))) ("\^a\^j\^m" . (lambda (n) (interactive "p") (move-to-window-line (- n)))) ("\^a\^h\^m" . beginning-of-line) ("\^a\^l\^m" . end-of-line))) ; forget self to put memory to some serious use (fmakunbound 'enable-arrow-keys)) (defun toggle-screen-width () "Alternate between 80 and 132 columns." (interactive) (if (<= (screen-width) 80) (progn (send-string-to-terminal "\e`;") (set-screen-width 131)) (send-string-to-terminal "\e`:") (set-screen-width 79))) ;----------------------------------------------------------------------------- ; this function is completely independent of wyse, it should be auto-loadable ; (presumably from keypad.el) for use in ~/emacs. It should be the only thing ; users need to know about all this unintelligible "forwarding" gibberish. ; This paves the way for a save-function-keys (some day or sleepless night) ; that will edit calls like (set-function-key ?x 'do-whatever) in ~/.emacs. (defun set-function-key (key &optional def) "Prompt for a function or other special key and assign it a meaning. The key must have been \"forwarded\" to a character by term/*.el. As a function takes two args CHAR and DEF, with DEF as in define-key. If your terminals term/*.el forwards a physical key to CHAR (before or after calling this function), then that key will mean DEF, else it is ignored. CHAR is one of the following: For numbered function keys 0, 1, ..., 24 (or ?\\^@, ?\\^a, ..., ?\\^x which is the same) For keypad keys in application mode ?0, ?1, ..., ?9 -- keypad key labelled with that digit, but only if that key is not an arrow key (see ?u, ?d, ?r, ?l). ?- -- keypad key labelled `-'. ?. -- keypad key labelled `.'. ?, -- keypad key labelled `,'. ?e -- key labelled enter. For keys labelled with some words or a symbol ?a -- clear all tabs key. ?A -- insert line key. ?C -- clear screen key. ?c -- erase key. ?D -- delete character key. ?d -- down-arrow. ?E -- clear to end of line key. ?e -- key labelled enter. ?f -- find key or search key. ?F -- scroll forward key. ?H -- home-down. ?h -- home-position key. ?I -- insert character key If there is just an \"insert\" key, it should be this. ?k -- delete key or remove key. ?L -- delete line key. ?l -- left-arrow. ?M -- exit insert mode key. ?N -- next page key. ?p -- portrait mode. ?P -- previous page key. ?q -- landscape mode. ?r -- right-arrow. ?R -- scroll reverse key. ?S -- clear to end of screen key. ?s -- select key. ?t -- clear tab this column key. ?T -- set tab this column key. ?u -- up-arrow. ?x -- do key. ?\\? -- help." (interactive "kHit key to redefine") (let ((map function-keymap)) (if (integerp key) () ; reinvent lookup-key to get (map . char) instead of def of char in map (setq map (or (lookup-key global-map (substring key 0 (1- (length key)))) global-map) key (string-to-char (substring key (1- (length key))))) (while (symbolp map) (setq map (symbol-function map))) (setq map (if (listp map) (cdr (assq key (cdr map))) (aref map key))) (if (and (consp map) (integerp (cdr map))) (setq key (cdr map) map (car map)) ; function-keymap usually (error "Key is not a \"forwarded\" definition."))) (if def () (setq def (read-command "command (default last keyboard macro): ")) (if (string-equal (symbol-name def) "") (setq def last-kbd-macro)) (setq command-history ; nonsense really, since you don't see (cons ; key as in a function call (?char) (list 'set-function-key key (if (stringp def) def (list 'quote def))) command-history))) ; all we do when called as a function (define-key map (char-to-string key) def)))