Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 57188:03a731220a33
* 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
57187:c9052d462541 | 57188:03a731220a33 |
---|---|
1 ;;; tcl.el --- Tcl code editing commands for Emacs | 1 ;;; tcl.el --- Tcl code editing commands for Emacs |
2 | 2 |
3 ;; Copyright (C) 1994,98,1999,2000,01,02,2003 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1994,98,1999,2000,01,02,2003,2004 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Maintainer: FSF | 5 ;; Maintainer: FSF |
6 ;; Author: Tom Tromey <tromey@redhat.com> | 6 ;; Author: Tom Tromey <tromey@redhat.com> |
7 ;; Chris Lindblad <cjl@lcs.mit.edu> | 7 ;; Chris Lindblad <cjl@lcs.mit.edu> |
8 ;; Keywords: languages tcl modes | 8 ;; Keywords: languages tcl modes |
1102 See documentation for function `inferior-tcl-mode' for more information." | 1102 See documentation for function `inferior-tcl-mode' for more information." |
1103 (interactive | 1103 (interactive |
1104 (list (if current-prefix-arg | 1104 (list (if current-prefix-arg |
1105 (read-string "Run Tcl: " tcl-application) | 1105 (read-string "Run Tcl: " tcl-application) |
1106 tcl-application))) | 1106 tcl-application))) |
1107 (if (not (comint-check-proc "*inferior-tcl*")) | 1107 (unless (comint-check-proc "*inferior-tcl*") |
1108 (progn | 1108 (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil |
1109 (set-buffer (apply (function make-comint) "inferior-tcl" cmd nil | 1109 tcl-command-switches)) |
1110 tcl-command-switches)) | 1110 (inferior-tcl-mode)) |
1111 (inferior-tcl-mode))) | 1111 (set (make-local-variable 'tcl-application) cmd) |
1112 (make-local-variable 'tcl-application) | |
1113 (setq tcl-application cmd) | |
1114 (setq inferior-tcl-buffer "*inferior-tcl*") | 1112 (setq inferior-tcl-buffer "*inferior-tcl*") |
1115 (switch-to-buffer "*inferior-tcl*")) | 1113 (pop-to-buffer "*inferior-tcl*")) |
1116 | 1114 |
1117 (defalias 'run-tcl 'inferior-tcl) | 1115 (defalias 'run-tcl 'inferior-tcl) |
1118 | 1116 |
1119 | 1117 |
1120 | 1118 |