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.