/[emacs]/emacs/lisp/progmodes/tcl.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/tcl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.69.2.3 by miles, Sat Apr 10 06:20:10 2004 UTC revision 1.69.2.4 by miles, Wed Oct 6 05:21:58 2004 UTC
# Line 1  Line 1 
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>
# Line 1104  See documentation for function `inferior Line 1104  See documentation for function `inferior
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    

Legend:
Removed from v.1.69.2.3  
changed lines
  Added in v.1.69.2.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26