Function: te-sentinel

te-sentinel is a byte-compiled function defined in terminal.el.gz.

Signature

(te-sentinel PROCESS MESSAGE)

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/terminal.el.gz
(defun te-sentinel (process message)
  (cond ((eq (process-status process) 'run))
	((null (buffer-name (process-buffer process)))) ;deleted
	(t (let ((b (current-buffer)))
	     (with-current-buffer (process-buffer process)
	       (setq buffer-read-only nil)
	       (fundamental-mode)
	       (goto-char (point-max))
	       (delete-blank-lines)
	       (delete-horizontal-space)
	       (insert "\n*******\n" message "*******\n"))
	     (if (and (eq b (process-buffer process))
		      (waiting-for-user-input-p))
		 (progn (goto-char (point-max))
			(recenter -1)))))))