emacs: lisp/progmodes/tcl.el comparison

* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.

author	Jesper Harder <harder@ifa.au.dk>
date	Wed, 22 Sep 2004 17:31:03 +0000
parents	e8824c4f5f7e
children	937f83cb003d c06211125947 0b158db81c28

comparison

equal deleted inserted replaced

-:c9052d462541
+:03a731220a33
 ;;; tcl.el --- Tcl code editing commands for Emacs
-;; 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.
 ;; Maintainer: FSF
 ;; Author: Tom Tromey <tromey@redhat.com>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
 See documentation for function `inferior-tcl-mode' for more information."
 (interactive
 (list (if current-prefix-arg
 	     (read-string "Run Tcl: " tcl-application)
 	   tcl-application)))
-(if (not (comint-check-proc "*inferior-tcl*"))
+(unless (comint-check-proc "*inferior-tcl*")
-(progn
+(set-buffer (apply (function make-comint) "inferior-tcl" cmd nil
-	(set-buffer (apply (function make-comint) "inferior-tcl" cmd nil
+		       tcl-command-switches))
-			   tcl-command-switches))
+(inferior-tcl-mode))
-	(inferior-tcl-mode)))
+(set (make-local-variable 'tcl-application) cmd)
-(make-local-variable 'tcl-application)
-(setq tcl-application cmd)
 (setq inferior-tcl-buffer "*inferior-tcl*")
-(switch-to-buffer "*inferior-tcl*"))
+(pop-to-buffer "*inferior-tcl*"))
 (defalias 'run-tcl 'inferior-tcl)

Mercurial > emacs