Mercurial > emacs
changeset 2587:1cad2ff5ab80
I started to clean this up and make it work under System V, until I hit a wall.
Discussion with Jim Blandy reveals that it can no longer be made to work
properly at all due to changes in Emacs's terminal-control interface. So
it's getting deep-sixed, but these cleanups go in on the outside chance that
we want to revive it someday.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Mon, 26 Apr 1993 05:15:04 +0000 |
| parents | 7fe45a326a98 |
| children | b0a1846fe3b8 |
| files | lisp/terminal.el |
| diffstat | 1 files changed, 20 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/terminal.el Mon Apr 26 05:15:01 1993 +0000 +++ b/lisp/terminal.el Mon Apr 26 05:15:04 1993 +0000 @@ -65,9 +65,7 @@ (defvar terminal-more-break-insertion "*** More break -- Press space to continue ***") -(defvar terminal-escape-map nil) (defvar terminal-map nil) -(defvar terminal-more-break-map nil) (if terminal-map nil (let ((map (make-keymap))) @@ -76,7 +74,7 @@ ; '(lambda () (interactive) (te-pass-through) (redraw-display))) (setq terminal-map map))) -;(setq terminal-escape-map nil) +(defvar terminal-escape-map nil) (if terminal-escape-map nil (let ((map (make-keymap))) @@ -99,8 +97,7 @@ (define-key map (char-to-string help-char) 'te-escape-help) (setq terminal-escape-map map))) -(defvar te-escape-command-alist ()) -;(setq te-escape-command-alist ()) +(defvar te-escape-command-alist nil) (if te-escape-command-alist nil (setq te-escape-command-alist @@ -124,7 +121,7 @@ ("Set Redisplay Interval" . te-set-redisplay-interval) ))) -;(setq terminal-more-break-map nil) +(defvar terminal-more-break-map nil) (if terminal-more-break-map nil (let ((map (make-keymap))) @@ -140,6 +137,22 @@ (setq terminal-more-break-map map))) +;;; Pacify the byte compiler +(defvar te-process nil) +(defvar te-log-buffer nil) +(defvar te-height nil) +(defvar te-width nil) +(defvar te-more-count nil) +(defvar te-redisplay-count nil) +(defvar te-pending-output nil) +(defvar te-saved-point) +(defvar te-more-old-point nil) +(defvar te-more-old-local-map nil) +(defvar te-more-old-filter nil) +(defvar te-more-old-mode-line-format nil) +(defvar te-pending-output-info nil) + + ;;;; escape map (defun te-escape () @@ -980,7 +993,7 @@ (progn (goto-char (point-max)) (recenter -1))))))) -(defvar te-stty-string "stty -nl dec echo" +(defvar te-stty-string "stty -nl erase ^? kill ^u intr ^c echo" "Shell command to set terminal modes for terminal emulator.") ;; This used to have `new' in it, but that loses outside BSD ;; and it's apparently not needed in BSD.