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.

diff --git a/lisp/terminal.el b/lisp/terminal.el
index 00c419b..6b4739f 100644 (file)
--- a/lisp/terminal.el
+++ b/lisp/terminal.el
@@ -65,9 +65,7 @@ performance.")
 (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 @@ performance.")
     ;  '(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 @@ performance.")
     (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 @@ performance.")
          ("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 @@ performance.")
     (setq terminal-more-break-map map)))
   
 \f
+;;; 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)
+
+\f
 ;;;;  escape map
 
 (defun te-escape ()
@@ -980,7 +993,7 @@ move to start of new line, clear to end of line."
                 (progn (goto-char (point-max))
                        (recenter -1)))))))
 \f
-(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.