From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 16 Aug 1995 14:41:11 +0000 (+0000)
Subject: (inferior-lisp): Use pop-to-buffer.
X-Git-Tag: emacs-19.34~2992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14a9bcda679613b9fb83521f7755c5315596e04d;p=emacs.git

(inferior-lisp): Use pop-to-buffer.
Add *inferior-lisp* to same-window-buffer-names.
---

diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el
index 4fa4009614a..9e462ee45b9 100644
--- a/lisp/progmodes/inf-lisp.el
+++ b/lisp/progmodes/inf-lisp.el
@@ -283,7 +283,8 @@ of `inferior-lisp-program').  Runs the hooks from
 			   "inferior-lisp" (car cmdlist) nil (cdr cmdlist)))
 	(inferior-lisp-mode)))
   (setq inferior-lisp-buffer "*inferior-lisp*")
-  (switch-to-buffer "*inferior-lisp*"))
+  (pop-to-buffer "*inferior-lisp*"))
+;;;###autoload (add-hook 'same-window-buffer-names "*inferior-lisp*")
 
 ;;;###autoload
 (defalias 'run-lisp 'inferior-lisp)