Function: inferior-tcl

inferior-tcl is an autoloaded, interactive and byte-compiled function defined in tcl.el.gz.

Signature

(inferior-tcl CMD)

Documentation

Run inferior Tcl process.

Prefix arg means enter program name interactively. See documentation for function inferior-tcl-mode for more information.

Key Bindings

Aliases

run-tcl

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
;;;###autoload
(defun inferior-tcl (cmd)
  "Run inferior Tcl process.
Prefix arg means enter program name interactively.
See documentation for function `inferior-tcl-mode' for more information."
  (interactive
   (list (if current-prefix-arg
	     (read-string "Run Tcl: " tcl-application)
	   tcl-application)))
  (unless (comint-check-proc "*inferior-tcl*")
    (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil
		       tcl-command-switches))
    (inferior-tcl-mode)
    ;; Make tclsh display a prompt on ms-windows (or under Unix, when a tty
    ;; wasn't used).  Doesn't affect wish, unfortunately.
    (unless (process-tty-name (inferior-tcl-proc))
      (tcl-send-string (inferior-tcl-proc)
                       "set ::tcl_interactive 1; concat\n")))
  (setq-local tcl-application cmd)
  (setq inferior-tcl-buffer "*inferior-tcl*")
  (pop-to-buffer "*inferior-tcl*"))