view lisp/term/wyse50.el @ 1015:58c373be762c

* term.c (term_get_fkeys): Some systems define `static' to be the empty string, which means that you can't have constant initialized arrays inside a function. So move the `keys' array outside of the function. * term.c (keys): Include definitions for "K2" (the center key on an IBM keypad), "F1" (F11), and "F2" (F12). Handle "k0" and "k;" specially; see the code for details. * term.c (clear_end_of_line): Remember that on some systems, "static" gets defined to be the null string, so we can't declare an array to be static and then initialize it. Since the array in question (buf) is only one element long, just make it a scalar rather than an array; it can then be initialized, even if it's not static.

;;;; Terminal mode for Wyse 50
;;;; Should work well for Televideo TVI 925 although it's overkill
;;;; Author Daniel Pfieffer ([e-mail]) January 1991
;;;; Rewritten for Emacs 19 by Jim Blandy ([e-mail])
;;;;   January 1992


;;; Functions especially for this terminal.

(defun wyse-50-insert-line ()
  "Insert an empty line."
  (interactive)
  (beginning-of-line)
  (open-line 1))

(defun wyse-50-delete-line ()
  "Delete all of the current line."
  (interactive)
  (beginning-of-line)
  (kill-line 1))

(defun wyse-50-insert-char ()
  "Insert a space, even in overwrite mode."
  (interactive)
  (insert ? ))

(defun wyse-50-print-buffer ()
  "Like ``print-buffer'', but verifies before printing.
The `print' key is easy to hit on a Wyse 50."
  (interactive)
  (if (y-or-n-p
       (concat "Print buffer "
	       (buffer-name) "? "))
      (print-buffer)))

(defun wyse-50-top-of-window (n)
  "Move point to the top line of the current window.
With an argument N, move to the Nth line of the window."
  (interactive "p")
  (move-to-window-line (1- n)))

(defun wyse-50-bottom-of-window (n)
  "Move point to the last line of the current window.
With an argument N, move to the Nth line from the bottom of the window."
  (interactive "p")
  (move-to-window-line (- n)))

(defun wyse-50-toggle-screen-width ()
  "Alternate between 80 and 132 columns."
  (interactive)
  (if (<= (frame-width) 80)
      (progn
	(send-string-to-terminal "\e`;")
	(set-frame-width 131))
    (send-string-to-terminal "\e`:")
    (set-frame-width 79)))


;;; Define the escape sequences for the function keys.
(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))))
	'(("\eI" [S-tab])
	  ("\eJ" [S-prior])
	  ("\eK" [next])
	  ("\eY" [clear])
	  ("\eT" [clear-eol])
	  ("\^^" [home])
	  ("\e\^^" [home-down])
	  ("\eQ" [insert])
	  ("\eE" [insertline])
	  ("\eW" [?\C-?])
	  ("\eR" [deleteline])
	  ("\eP" [print])
	  ("\C-k" [up])
	  ("\C-j" [down])
	  ("\C-l" [right])
	  ("\C-h" [left])
	  ("\C-a\C-k\C-m" [funct-up])
	  ("\C-a\C-j\C-m" [funct-down])
	  ("\C-a\C-l\C-m" [funct-right])
	  ("\C-a\C-h\C-m" [funct-left])
	  ("\er" [replace])
	  ("\^a\^m\^m" [funct-return])
	  ("\^a\^i\^m" [funct-tab])
	  ("\^a@\^m" [f1])
	  ("\^a`\^m" [S-f1])
	  ("\^aA\^m" [f2])
	  ("\^aa\^m" [S-f2])
	  ("\^aB\^m" [f3])
	  ("\^ab\^m" [S-f3])
	  ("\^aC\^m" [f4])
	  ("\^ac\^m" [S-f4])
	  ("\^aD\^m" [f5])
	  ("\^ad\^m" [S-f5])
	  ("\^aE\^m" [f6])
	  ("\^ae\^m" [S-f6])
	  ("\^aF\^m" [f7])
	  ("\^af\^m" [S-f7])
	  ("\^aG\^m" [f8])
	  ("\^ag\^m" [S-f8])
	  ("\^aH\^m" [f9])
	  ("\^ah\^m" [S-f9])
	  ("\^aI\^m" [f10])
	  ("\^ai\^m" [S-f10])
	  ("\^aJ\^m" [f11])
	  ("\^aj\^m" [S-f11])
	  ("\^aK\^m" [f12])
	  ("\^ak\^m" [S-f12])
	  ("\^aL\^m" [f13])
	  ("\^al\^m" [S-f13])
	  ("\^aM\^m" [f14])
	  ("\^am\^m" [S-f14])
	  ("\^aN\^m" [f15])
	  ("\^an\^m" [S-f15])
	  ("\^aO\^m" [f16])
	  ("\^ao\^m" [S-f16])))


;;; Define some of the function keys.
(mapcar (function (lambda (key-definition)
		    (global-set-key (car key-definition)
		     (nth 1 key-definition))))
	'(([insertline]	 wyse-50-insert-line)
	  ([clear]	 recenter)
	  ([clear-eol]   kill-line)
	  ([home]        execute-extended-command)
	  ([home-down]	 shell-command)
	  ([insert]	 wyse-50-insert-char)
	  ([deleteline]	 wyse-50-delete-line)
	  ([replace]	 overwrite-mode)
	  ([print]	 wyse-50-print-buffer)
	  ([funct-up]	 wyse-50-top-of-window)
	  ([funct-down]  wyse-50-bottom-of-window)
	  ([funct-left]  beginning-of-line)
	  ([funct-right] end-of-line)
	  ([f5]		 shell)
	  ([f6]		 dired)
	  ([f7]		 rnews)
	  ([f8]		 rmail)
	  ([f9]		 delete-othe-windows)
	  ([f10]	 other-window)
	  ([f11]	 split-window-vertically)
	  ([f13]	 help-for-help)
	  ([f14]	 wyse-50-toggle-screen-width)
	  ([f15]	 global-set-key)
	  ("\M-?"	 help-for-help)))


;;; 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!
(setq kill-emacs-hook
      (function (lambda () (interactive)
		  (send-string-to-terminal
		   (concat "\ea23R" (1+ (frame-width)) "C\eG0")))))

(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
All special keys except Send, Shift Ins, Shift Home and shifted functions keys
are assigned some hopefully useful meaning."
  (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-a\C-a"	beginning-of-line)
	    ("\C-k"	nil)
	    ("\C-j"	nil)
	    ("\C-l"	nil)
	    ("\C-h"	nil)
	    ("\er"	nil)))
  (fset 'enable-arrow-keys nil))