1 |
;;; tcl.el --- Tcl code editing commands for Emacs |
;;; tcl.el --- Tcl code editing commands for Emacs |
2 |
|
|
3 |
;; Copyright (C) 1994,98,1999,2000,01,02,2003 Free Software Foundation, Inc. |
;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Maintainer: FSF |
;; Maintainer: FSF |
6 |
;; Author: Tom Tromey <tromey@redhat.com> |
;; Author: Tom Tromey <tromey@redhat.com> |
1104 |
(list (if current-prefix-arg |
(list (if current-prefix-arg |
1105 |
(read-string "Run Tcl: " tcl-application) |
(read-string "Run Tcl: " tcl-application) |
1106 |
tcl-application))) |
tcl-application))) |
1107 |
(if (not (comint-check-proc "*inferior-tcl*")) |
(unless (comint-check-proc "*inferior-tcl*") |
1108 |
(progn |
(set-buffer (apply (function make-comint) "inferior-tcl" cmd nil |
1109 |
(set-buffer (apply (function make-comint) "inferior-tcl" cmd nil |
tcl-command-switches)) |
1110 |
tcl-command-switches)) |
(inferior-tcl-mode)) |
1111 |
(inferior-tcl-mode))) |
(set (make-local-variable 'tcl-application) cmd) |
|
(make-local-variable 'tcl-application) |
|
|
(setq tcl-application cmd) |
|
1112 |
(setq inferior-tcl-buffer "*inferior-tcl*") |
(setq inferior-tcl-buffer "*inferior-tcl*") |
1113 |
(switch-to-buffer "*inferior-tcl*")) |
(pop-to-buffer "*inferior-tcl*")) |
1114 |
|
|
1115 |
(defalias 'run-tcl 'inferior-tcl) |
(defalias 'run-tcl 'inferior-tcl) |
1116 |
|
|