diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-26 05:15:04 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 1993-04-26 05:15:04 +0000 |
| commit | 54f91c5b0288e867ab69127ed06e816255152a4a (patch) | |
| tree | 5d16b2c1a80405963390c10cc17dfa635d2d8c0a /lisp/terminal.el | |
| parent | 10d96c7d2cd742415c5324172df0644c1e739b67 (diff) | |
| download | emacs-54f91c5b0288e867ab69127ed06e816255152a4a.tar.gz | |
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.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 00c419bfa73..6b4739f881a 100644 --- 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))) +;;; 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 @@ move to start of new line, clear to end of line." (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. |