Function: xscheme-process-sentinel

xscheme-process-sentinel is a byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-process-sentinel PROC REASON)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
;;;; Process Filter

(defun xscheme-process-sentinel (proc reason)
  (let* ((buffer (process-buffer proc))
	 (name (buffer-name buffer)))
    (with-current-buffer buffer
      (xscheme-process-filter-initialize (eq reason 'run))
      (if (not (eq reason 'run))
	  (progn
	    (setq scheme-mode-line-process "")
	    (setq xscheme-mode-string "no process")
	    (if (equal name (default-value 'xscheme-buffer-name))
		(setq-default xscheme-runlight ""))))
      (if (and (not (memq reason '(run stop)))
	       xscheme-signal-death-message)
	  (progn
	    (beep)
            (message (substitute-command-keys
"The Scheme process has died!  Type \\[reset-scheme] to restart it")))))))