Function: xscheme-send-control-g-interrupt

xscheme-send-control-g-interrupt is an interactive and byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-send-control-g-interrupt)

Documentation

Cause the Scheme processor to halt and flush input.

Control returns to the top level rep loop.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-send-control-g-interrupt ()
  "Cause the Scheme processor to halt and flush input.
Control returns to the top level rep loop."
  (interactive)
  (let ((inhibit-quit t))
    (cond ((not xscheme-control-g-synchronization-p)
	   (interrupt-process xscheme-process-name))
	  ((with-current-buffer xscheme-buffer-name
	     xscheme-control-g-disabled-p)
	   (message "Relax..."))
	  (t
	   (with-current-buffer xscheme-buffer-name
	     (setq xscheme-control-g-disabled-p t))
	   (message xscheme-control-g-message-string)
	   (interrupt-process xscheme-process-name)
	   (sleep-for 0.1)
	   (xscheme-send-char 0)))))