0
+ − 1 ;;; wyse50.el --- terminal support code for Wyse 50
+ − 2
+ − 3 ;; Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc.
+ − 4
+ − 5 ;; Author: Daniel Pfieffer <pfieffer@cix.cict.fr> January 1991
+ − 6 ;; Jim Blandy <jimb@occs.cs.oberlin.edu>
+ − 7 ;; Keywords: terminals
+ − 8
+ − 9 ;;; This file is part of GNU Emacs.
+ − 10 ;;;
+ − 11 ;;; GNU Emacs is free software; you can redistribute it and/or modify
+ − 12 ;;; it under the terms of the GNU General Public License as published by
+ − 13 ;;; the Free Software Foundation; either version 2, or (at your option)
+ − 14 ;;; any later version.
+ − 15 ;;;
+ − 16 ;;; GNU Emacs is distributed in the hope that it will be useful,
+ − 17 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ − 18 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ − 19 ;;; GNU General Public License for more details.
+ − 20 ;;;
+ − 21 ;;; You should have received a copy of the GNU General Public License
+ − 22 ;;; along with GNU Emacs; see the file COPYING. If not, write to
+ − 23 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+ − 24
+ − 25 ;;; Commentary:
+ − 26
+ − 27 ;; Uses the Emacs 19 terminal initialization features --- won't work with 18.
+ − 28 ;; Rewritten for Emacs 19 by jimb, January 1992
+ − 29 ;; Cleaned up for new terminal package conventions by esr, March 1993
+ − 30 ;; Should work well for Televideo TVI 925 although it's overkill.
+ − 31 ;;
+ − 32 ;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks
+ − 33 ;; rocks. The left-arrow key emits a backspace (!) and the down-arrow a line
+ − 34 ;; feed (!!). Thus, you have to unbind some commonly-used Emacs keys to
+ − 35 ;; enable the arrows.
+ − 36
+ − 37 ;;; Code:
+ − 38
+ − 39 (define-key function-key-map "\C-a" (make-keymap))
+ − 40 (mapcar (function (lambda (key-definition)
+ − 41 (define-key function-key-map
+ − 42 (car key-definition) (nth 1 key-definition))))
+ − 43 '(
+ − 44 ;; These might be set up by termcap and terminfo
+ − 45 ("\C-k" [up])
+ − 46 ("\C-j" [down])
+ − 47 ("\C-l" [right])
+ − 48 ("\C-h" [left])
+ − 49 ("\^a@\^m" [f1])
+ − 50 ("\^aA\^m" [f2])
+ − 51 ("\^aB\^m" [f3])
+ − 52 ("\^aC\^m" [f4])
+ − 53 ("\^aD\^m" [f5])
+ − 54 ("\^aE\^m" [f6])
+ − 55 ("\^aF\^m" [f7])
+ − 56 ("\^aG\^m" [f8])
+ − 57 ("\^aH\^m" [f9])
+ − 58
+ − 59 ;; These might be set up by terminfo
+ − 60 ("\eK" [next])
+ − 61 ("\eT" [clearline])
+ − 62 ("\^^" [home])
+ − 63 ("\e\^^" [end])
+ − 64 ("\eQ" [insert])
+ − 65 ("\eE" [insertline])
+ − 66 ("\eR" [deleteline])
+ − 67 ("\eP" [print])
+ − 68 ("\er" [replace])
+ − 69 ("\^aI\^m" [f10])
+ − 70 ("\^aJ\^m" [f11])
+ − 71 ("\^aK\^m" [f12])
+ − 72 ("\^aL\^m" [f13])
+ − 73 ("\^aM\^m" [f14])
+ − 74 ("\^aN\^m" [f15])
+ − 75 ("\^aO\^m" [f16])
+ − 76 ("\^a`\^m" [f17])
+ − 77 ("\^aa\^m" [f18])
+ − 78 ("\^ab\^m" [f19])
+ − 79 ("\^ac\^m" [f20])
+ − 80 ("\^ad\^m" [f21])
+ − 81 ("\^ae\^m" [f22])
+ − 82 ("\^af\^m" [f23])
+ − 83 ("\^ag\^m" [f24])
+ − 84 ("\^ah\^m" [f25])
+ − 85 ("\^ai\^m" [f26])
+ − 86 ("\^aj\^m" [f27])
+ − 87 ("\^ak\^m" [f28])
+ − 88 ("\^al\^m" [f29])
+ − 89 ("\^am\^m" [f30])
+ − 90 ("\^an\^m" [f31])
+ − 91 ("\^ao\^m" [f32])
+ − 92
+ − 93 ;; Terminfo may know about these, but X won't
+ − 94 ("\eI" [key-stab]) ;; Not an X keysym
+ − 95 ("\eJ" [key-snext]) ;; Not an X keysym
+ − 96 ("\eY" [key-clear]) ;; Not an X keysym
+ − 97
+ − 98 ;; These are totally strange :-)
+ − 99 ("\eW" [?\C-?]) ;; Not an X keysym
+ − 100 ("\^a\^k\^m" [funct-up]) ;; Not an X keysym
+ − 101 ("\^a\^j\^m" [funct-down]) ;; Not an X keysym
+ − 102 ("\^a\^l\^m" [funct-right]) ;; Not an X keysym
+ − 103 ("\^a\^h\^m" [funct-left]) ;; Not an X keysym
+ − 104 ("\^a\^m\^m" [funct-return]) ;; Not an X keysym
+ − 105 ("\^a\^i\^m" [funct-tab]) ;; Not an X keysym
+ − 106 ))
+ − 107
+ − 108 (defun enable-arrow-keys ()
+ − 109 "To be called by term-setup-hook. Overrides 6 Emacs standard keys
+ − 110 whose functions are then typed as follows:
+ − 111 C-a Funct Left-arrow
+ − 112 C-h M-?
+ − 113 LFD Funct Return, some modes override down-arrow via LFD
+ − 114 C-k CLR Line
+ − 115 C-l Scrn CLR
+ − 116 M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar
+ − 117 "
+ − 118 (interactive)
+ − 119 (mapcar (function (lambda (key-definition)
+ − 120 (global-set-key (car key-definition)
+ − 121 (nth 1 key-definition))))
+ − 122 ;; By unsetting C-a and then binding it to a prefix, we
+ − 123 ;; allow the rest of the function keys which start with C-a
+ − 124 ;; to be recognized.
+ − 125 '(("\C-a" nil)
+ − 126 ("\C-k" nil)
+ − 127 ("\C-j" nil)
+ − 128 ("\C-l" nil)
+ − 129 ("\C-h" nil)
+ − 130 ("\er" nil)))
+ − 131 (fset 'enable-arrow-keys nil))
+ − 132
+ − 133
+ − 134 ;;; Miscellaneous hacks
+ − 135
+ − 136 ;;; This is an ugly hack for a nasty problem:
+ − 137 ;;; Wyse 50 takes one character cell to store video attributes (which seems to
+ − 138 ;;; explain width 79 rather than 80, column 1 is not used!!!).
+ − 139 ;;; On killing (C-x C-c) the end inverse code (on column 1 of line 24)
+ − 140 ;;; of the mode line is overwritten AFTER all the y-or-n questions.
+ − 141 ;;; This causes the attribute to remain in effect until the mode line has
+ − 142 ;;; scrolled of the screen. Suspending (C-z) does not cause this problem.
+ − 143 ;;; On such terminals, Emacs should sacrifice the first and last character of
+ − 144 ;;; each mode line, rather than a whole screen column!
+ − 145 (add-hook 'kill-emacs-hook
+ − 146 (function (lambda () (interactive)
+ − 147 (send-string-to-terminal
+ − 148 (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))
+ − 149
+ − 150 ;;; wyse50.el ends here
