Function: xscheme-write-message-1

xscheme-write-message-1 is a byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-write-message-1 MESSAGE-STRING OUTPUT-STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-write-message-1 (message-string output-string)
  (let* ((process (get-process xscheme-process-name))
	 (window (get-buffer-window (process-buffer process))))
    (if (or (not window)
	    (not (pos-visible-in-window-p (process-mark process)
					  window)))
	(message "%s" message-string)))
  (xscheme-guarantee-newlines 1)
  (xscheme-process-filter-output output-string))