From: Karl Heuer Date: Thu, 4 Jan 1996 23:15:19 +0000 (+0000) Subject: (te-process-output): Fix local var misspelling. X-Git-Tag: emacs-19.34~1906 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a60704d7edd9dcff694ba14c6e621aa6f78b4119;p=emacs.git (te-process-output): Fix local var misspelling. --- 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))