mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

I started to clean this up and make it work under System V, until I hit a wall.

Browse Source 
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.
This commit is contained in:
Eric S. Raymond 1993-04-26 05:15:04 +00:00
parent 10d96c7d2c
commit 54f91c5b02
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/terminal.el
View File

@ -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)))
@ -139,6 +136,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
@ -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.