[Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el [lexbind]

[Miles Bader]

Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.69.2.3 
emacs/lisp/progmodes/tcl.el:1.69.2.4
*** emacs/lisp/progmodes/tcl.el:1.69.2.3        Sat Apr 10 06:20:10 2004
--- emacs/lisp/progmodes/tcl.el Wed Oct  6 05:21:58 2004
***************
*** 1,6 ****
  ;;; tcl.el --- Tcl code editing commands for Emacs
  
! ;; Copyright (C) 1994,98,1999,2000,01,02,2003  Free Software Foundation, Inc.
  
  ;; Maintainer: FSF
  ;; Author: Tom Tromey <address@hidden>
--- 1,6 ----
  ;;; tcl.el --- Tcl code editing commands for Emacs
  
! ;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004  Free Software Foundation, 
Inc.
  
  ;; Maintainer: FSF
  ;; Author: Tom Tromey <address@hidden>
***************
*** 1104,1118 ****
     (list (if current-prefix-arg
             (read-string "Run Tcl: " tcl-application)
           tcl-application)))
!   (if (not (comint-check-proc "*inferior-tcl*"))
!       (progn
!       (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil
!                          tcl-command-switches))
!       (inferior-tcl-mode)))
!   (make-local-variable 'tcl-application)
!   (setq tcl-application cmd)
    (setq inferior-tcl-buffer "*inferior-tcl*")
!   (switch-to-buffer "*inferior-tcl*"))
  
  (defalias 'run-tcl 'inferior-tcl)
  
--- 1104,1116 ----
     (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))
!   (set (make-local-variable 'tcl-application) cmd)
    (setq inferior-tcl-buffer "*inferior-tcl*")
!   (pop-to-buffer "*inferior-tcl*"))
  
  (defalias 'run-tcl 'inferior-tcl)