From 14a9bcda679613b9fb83521f7755c5315596e04d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Aug 1995 14:41:11 +0000 Subject: [PATCH] (inferior-lisp): Use pop-to-buffer. Add *inferior-lisp* to same-window-buffer-names. --- lisp/progmodes/inf-lisp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2