mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-02 05:32:08 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Jesper Harder 2004-09-22 17:31:03 +00:00
parent 082b436964
commit a2052295e8
2 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2004-09-20 Jesper Harder <harder@ifa.au.dk>
* progmodes/tcl.el (inferior-tcl): Use pop-to-buffer.
2004-09-21 Luc Teirlinck <teirllm@auburn.edu>
* subr.el (after-change-major-mode-hook): Doc fix.

16
lisp/progmodes/tcl.el
View file

@ -1,6 +1,6 @@
;;; 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>
@ -1104,15 +1104,13 @@ See documentation for function `inferior-tcl-mode' for more information."
(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)
(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*")
(switch-to-buffer "*inferior-tcl*"))
(pop-to-buffer "*inferior-tcl*"))
(defalias 'run-tcl 'inferior-tcl)