|
@@ -38,8 +38,11 @@
|
|
|
|
|
|
(defvar org-babel-default-header-args:tcl nil)
|
|
|
|
|
|
-(defvar org-babel-tcl-command "tclsh"
|
|
|
- "Name of command to use for executing tcl code.")
|
|
|
+(defcustom org-babel-tcl-command "tclsh"
|
|
|
+"Name of command to use for executing Tcl code."
|
|
|
+ :group 'org-babel
|
|
|
+ :type 'string)
|
|
|
+
|
|
|
|
|
|
(defun org-babel-execute:tcl (body params)
|
|
|
"Execute a block of Tcl code with Babel.
|