comparison lisp/term/wyse50.el @ 779:c2dbf1fe0506

*** empty log message ***

778:cd00bdacc17b

  (move-to-window-line (- n)))

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


;;; Define the escape sequences for the function keys.
(define-key function-key-map "\C-a" (make-keymap))
(mapcar (function (lambda (key-definition)

;;; 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+ (screen-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

779:c2dbf1fe0506

  (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)

;;; 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