Function: xscheme-process-filter-initialize

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

Signature

(xscheme-process-filter-initialize RUNNING-P)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-process-filter-initialize (running-p)
  (setq xscheme-process-filter-state 'idle)
  (setq xscheme-running-p running-p)
  (setq xscheme-control-g-disabled-p nil)
  (setq xscheme-allow-output-p t)
  (setq xscheme-prompt "")
  (if running-p
      (let ((name (buffer-name (current-buffer))))
	(setq scheme-mode-line-process '(": " xscheme-runlight-string))
	(xscheme-mode-line-initialize name)
	(if (equal name (default-value 'xscheme-buffer-name))
            (setq-default xscheme-runlight xscheme-default-runlight))))
  (if (or (eq xscheme-runlight xscheme-default-runlight)
	  (equal xscheme-runlight ""))
      (setq xscheme-runlight (list ": " 'xscheme-buffer-name ": " "?")))
  (rplaca (nthcdr 3 xscheme-runlight)
	  (if running-p "?" "no process")))