Function: inferior-tcl-proc

inferior-tcl-proc is a byte-compiled function defined in tcl.el.gz.

Signature

(inferior-tcl-proc)

Documentation

Return current inferior Tcl process.

See variable inferior-tcl-buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun inferior-tcl-proc ()
  "Return current inferior Tcl process.
See variable `inferior-tcl-buffer'."
  (let ((proc (get-buffer-process (if (derived-mode-p 'inferior-tcl-mode)
				      (current-buffer)
				    inferior-tcl-buffer))))
    (or proc
	(error "No Tcl process; see variable `inferior-tcl-buffer'"))))