Commit 14a9bcda authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(inferior-lisp): Use pop-to-buffer.

Add *inferior-lisp* to same-window-buffer-names.
parent 349a5b09
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment