diff options
Diffstat (limited to 'lisp/term/wyse50.el')
| -rw-r--r-- | lisp/term/wyse50.el | 235 |
1 files changed, 0 insertions, 235 deletions
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el deleted file mode 100644 index 712e1062d00..00000000000 --- a/lisp/term/wyse50.el +++ /dev/null @@ -1,235 +0,0 @@ -; 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))) - - |