--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/term/wyse50.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,150 @@
+;;; 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, 675 Mass Ave, Cambridge, MA 02139, 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