diff options
Diffstat (limited to 'lisp/term/wyse50.el')
-rw-r--r-- | lisp/term/wyse50.el | 151 |
1 files changed, 0 insertions, 151 deletions
diff --git a/lisp/term/wyse50.el b/lisp/term/wyse50.el deleted file mode 100644 index 3cb1307bb89..00000000000 --- a/lisp/term/wyse50.el +++ /dev/null @@ -1,151 +0,0 @@ -;;; wyse50.el --- terminal support code for Wyse 50 - -;; Copyright (C) 1989, 1993, 1994 Free Software Foundation, Inc. - -;; Author: Daniel Pfieffer <pfieffer@cix.cict.fr> January 1991 -;; Jim Blandy <jimb@occs.cs.oberlin.edu> -;; Keywords: terminals - -;; This file is part of GNU Emacs. - -;; GNU Emacs is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) -;; any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. - -;;; Commentary: - -;; Uses the Emacs 19 terminal initialization features --- won't work with 18. -;; Rewritten for Emacs 19 by jimb, January 1992 -;; Cleaned up for new terminal package conventions by esr, March 1993 -;; Should work well for Televideo TVI 925 although it's overkill. -;; -;; The Wyse50 is ergonomically wonderful, but its escape-sequence design sucks -;; rocks. The left-arrow key emits a backspace (!) and the down-arrow a line -;; feed (!!). Thus, you have to unbind some commonly-used Emacs keys to -;; enable the arrows. - -;;; Code: - -(define-key function-key-map "\C-a" (make-keymap)) -(mapcar (function (lambda (key-definition) - (define-key function-key-map - (car key-definition) (nth 1 key-definition)))) - '( - ;; These might be set up by termcap and terminfo - ("\C-k" [up]) - ("\C-j" [down]) - ("\C-l" [right]) - ("\C-h" [left]) - ("\^a@\^m" [f1]) - ("\^aA\^m" [f2]) - ("\^aB\^m" [f3]) - ("\^aC\^m" [f4]) - ("\^aD\^m" [f5]) - ("\^aE\^m" [f6]) - ("\^aF\^m" [f7]) - ("\^aG\^m" [f8]) - ("\^aH\^m" [f9]) - - ;; These might be set up by terminfo - ("\eK" [next]) - ("\eT" [clearline]) - ("\^^" [home]) - ("\e\^^" [end]) - ("\eQ" [insert]) - ("\eE" [insertline]) - ("\eR" [deleteline]) - ("\eP" [print]) - ("\er" [replace]) - ("\^aI\^m" [f10]) - ("\^aJ\^m" [f11]) - ("\^aK\^m" [f12]) - ("\^aL\^m" [f13]) - ("\^aM\^m" [f14]) - ("\^aN\^m" [f15]) - ("\^aO\^m" [f16]) - ("\^a`\^m" [f17]) - ("\^aa\^m" [f18]) - ("\^ab\^m" [f19]) - ("\^ac\^m" [f20]) - ("\^ad\^m" [f21]) - ("\^ae\^m" [f22]) - ("\^af\^m" [f23]) - ("\^ag\^m" [f24]) - ("\^ah\^m" [f25]) - ("\^ai\^m" [f26]) - ("\^aj\^m" [f27]) - ("\^ak\^m" [f28]) - ("\^al\^m" [f29]) - ("\^am\^m" [f30]) - ("\^an\^m" [f31]) - ("\^ao\^m" [f32]) - - ;; Terminfo may know about these, but X won't - ("\eI" [key-stab]) ;; Not an X keysym - ("\eJ" [key-snext]) ;; Not an X keysym - ("\eY" [key-clear]) ;; Not an X keysym - - ;; These are totally strange :-) - ("\eW" [?\C-?]) ;; Not an X keysym - ("\^a\^k\^m" [funct-up]) ;; Not an X keysym - ("\^a\^j\^m" [funct-down]) ;; Not an X keysym - ("\^a\^l\^m" [funct-right]) ;; Not an X keysym - ("\^a\^h\^m" [funct-left]) ;; Not an X keysym - ("\^a\^m\^m" [funct-return]) ;; Not an X keysym - ("\^a\^i\^m" [funct-tab]) ;; Not an X keysym -)) - -(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-h M-? -LFD Funct Return, some modes override down-arrow via LFD -C-k CLR Line -C-l Scrn CLR -M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar -" - (interactive) - (mapcar (function (lambda (key-definition) - (global-set-key (car key-definition) - (nth 1 key-definition)))) - ;; By unsetting C-a and then binding it to a prefix, we - ;; allow the rest of the function keys which start with C-a - ;; to be recognized. - '(("\C-a" nil) - ("\C-k" nil) - ("\C-j" nil) - ("\C-l" nil) - ("\C-h" nil) - ("\er" nil))) - (fset 'enable-arrow-keys nil)) - - -;;; Miscellaneous hacks - -;;; 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! -(add-hook 'kill-emacs-hook - (function (lambda () (interactive) - (send-string-to-terminal - (concat "\ea23R" (1+ (frame-width)) "C\eG0"))))) - -;;; wyse50.el ends here |