git.chise.org Git - chise/xemacs-chise.git.1/blob - lisp/term/wyse50.el

   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 \f
 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