emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Jesper Harder
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/tcl.el
Date: Wed, 22 Sep 2004 15:33:27 -0400

Index: emacs/lisp/progmodes/tcl.el
diff -c emacs/lisp/progmodes/tcl.el:1.77 emacs/lisp/progmodes/tcl.el:1.78
*** emacs/lisp/progmodes/tcl.el:1.77    Sat Apr 10 05:55:48 2004
--- emacs/lisp/progmodes/tcl.el Wed Sep 22 17:31:03 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)
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]