Function: terminal-init-wyse50

terminal-init-wyse50 is a byte-compiled function defined in wyse50.el.gz.

Signature

(terminal-init-wyse50)

Documentation

Terminal initialization function for wyse50.

Source Code

;; Defined in /usr/src/emacs/lisp/term/wyse50.el.gz
(defun terminal-init-wyse50 ()
  "Terminal initialization function for wyse50."
  ;; Use inheritance to let the main keymap override these defaults.
  ;; This way we don't override terminfo-derived settings or settings
  ;; made in the init file.
  (let ((m (copy-keymap wyse50-terminal-map)))
    (set-keymap-parent m (keymap-parent input-decode-map))
    (set-keymap-parent input-decode-map m))

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