diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:15:19 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-04 23:15:19 +0000 |
| commit | b42be3decbc13ff8686b5658aa7dd363975e8927 (patch) | |
| tree | e606eac0454083e18c7fb653bfde154a96e913ee /lisp/terminal.el | |
| parent | e529b93dc5a3af953aadde69d4e49f336f3862f1 (diff) | |
| download | emacs-b42be3decbc13ff8686b5658aa7dd363975e8927.tar.gz | |
(te-process-output): Fix local var misspelling.
Diffstat (limited to 'lisp/terminal.el')
| -rw-r--r-- | lisp/terminal.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/terminal.el b/lisp/terminal.el index 6ca1efd98ba..6ce68242810 100644 --- a/lisp/terminal.el +++ b/lisp/terminal.el @@ -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)) |