mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(te-process-output): Fix local var misspelling.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-04 23:15:19 +00:00
parent 9b82abcce5
commit a60704d7ed
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/terminal.el
View File

@ -865,9 +865,9 @@ move to start of new line, clear to end of line."
;; (A version of the following comment which might be distractingly offensive
;; to some readers has been moved to term-nasty.el.)
;; unix lacks ITS-style tty control...
(defun te-process-output (preemptable)
(defun te-process-output (preemptible)
;;>> There seems no good reason to ever disallow preemption
(setq preemptable t)
(setq preemptible t)
(catch 'te-process-output
(let ((buffer-read-only nil)
(string nil) ostring start char (matchpos nil))
@ -955,9 +955,9 @@ move to start of new line, clear to end of line."
(?\C-i . te-output-tab))))
'te-losing-unix)))
(te-redisplay-if-necessary 1))
(and preemptable
(and preemptible
(input-pending-p)
;; preemptable output! Oh my!!
;; preemptible output! Oh my!!
(throw 'te-process-output t)))))
;; We must update window-point in every window displaying our buffer
(let* ((s (selected-window))