diff options
| author | Richard M. Stallman | 1995-08-16 14:41:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-16 14:41:11 +0000 |
| commit | 14a9bcda679613b9fb83521f7755c5315596e04d (patch) | |
| tree | e635f55e298ac72bbbc480c002bedf8906a7cc2d | |
| parent | 349a5b097bef1b204f1b8e76dbe6d1d7633d83c0 (diff) | |
| download | emacs-14a9bcda679613b9fb83521f7755c5315596e04d.tar.gz emacs-14a9bcda679613b9fb83521f7755c5315596e04d.zip | |
(inferior-lisp): Use pop-to-buffer.
Add *inferior-lisp* to same-window-buffer-names.
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 283 | "inferior-lisp" (car cmdlist) nil (cdr cmdlist))) | 283 | "inferior-lisp" (car cmdlist) nil (cdr cmdlist))) |
| 284 | (inferior-lisp-mode))) | 284 | (inferior-lisp-mode))) |
| 285 | (setq inferior-lisp-buffer "*inferior-lisp*") | 285 | (setq inferior-lisp-buffer "*inferior-lisp*") |
| 286 | (switch-to-buffer "*inferior-lisp*")) | 286 | (pop-to-buffer "*inferior-lisp*")) |
| 287 | ;;;###autoload (add-hook 'same-window-buffer-names "*inferior-lisp*") | ||
| 287 | 288 | ||
| 288 | ;;;###autoload | 289 | ;;;###autoload |
| 289 | (defalias 'run-lisp 'inferior-lisp) | 290 | (defalias 'run-lisp 'inferior-lisp) |