Function: xscheme-send-definition

xscheme-send-definition is an interactive and byte-compiled function defined in xscheme.el.gz.

Signature

(xscheme-send-definition)

Documentation

Send the current definition to the Scheme process.

If the current line begins with a non-whitespace character, parse an expression from the beginning of the line and send that instead.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/xscheme.el.gz
(defun xscheme-send-definition ()
  "Send the current definition to the Scheme process.
If the current line begins with a non-whitespace character,
parse an expression from the beginning of the line and send that instead."
  (interactive)
  (let ((start nil) (end nil))
    (save-excursion
      (end-of-defun)
      (setq end (point))
      (if (re-search-backward "^\\s(" nil t)
	  (setq start (point))
	  (error "Can't find definition")))
    (xscheme-send-region start end)))