Function: tcl-eval-defun

tcl-eval-defun is an interactive and byte-compiled function defined in tcl.el.gz.

Signature

(tcl-eval-defun &optional AND-GO)

Documentation

Send the current defun to the inferior Tcl process.

Prefix argument means switch to the Tcl buffer afterwards.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun tcl-eval-defun (&optional and-go)
  "Send the current defun to the inferior Tcl process.
Prefix argument means switch to the Tcl buffer afterwards."
  (interactive "P")
  (save-excursion
    (end-of-defun)
    (let ((end (point)))
      (beginning-of-defun)
      (tcl-eval-region (point) end)))
  (if and-go (switch-to-tcl t)))