# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808584071 0
# Node ID 8c777db02099281f6e55adc644164e6f663b5fe1
# Parent  26e4b539253084820dafc0a54e35f71e4b08e9bb
(inferior-lisp): Use pop-to-buffer.
Add *inferior-lisp* to same-window-buffer-names.

diff -r 26e4b5392530 -r 8c777db02099 lisp/progmodes/inf-lisp.el
--- a/lisp/progmodes/inf-lisp.el	Wed Aug 16 14:39:29 1995 +0000
+++ b/lisp/progmodes/inf-lisp.el	Wed Aug 16 14:41:11 1995 +0000
@@ -283,7 +283,8 @@
 			   "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)