diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-09-22 12:15:52 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-09-22 12:15:52 -0400 |
| commit | 72258fe58401a16ab2ff671601c6d6068eb8b799 (patch) | |
| tree | ebeff5690f1240a024e02ad42c7bb6fea1001570 /lisp/cmuscheme.el | |
| parent | 8f0985161467a7018ba08ccf7c9f37cc7fc3edfe (diff) | |
| download | emacs-72258fe58401a16ab2ff671601c6d6068eb8b799.tar.gz | |
Reintroduce pop-to-buffer-same-window; use it for previous users of same-window-*.
* window.el (pop-to-buffer-same-window): New (reinstated) fun.
* cmuscheme.el (run-scheme, switch-to-scheme):
* cus-edit.el (customize-group, custom-buffer-create)
(customize-browse):
* info.el (info):
* shell.el (shell):
* mail/sendmail.el (mail):
* progmodes/inf-lisp.el (inferior-lisp): Use it.
Fixes: debbugs:9532
Diffstat (limited to 'lisp/cmuscheme.el')
| -rw-r--r-- | lisp/cmuscheme.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 6eb2aa76135..7c1351eefd4 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -246,7 +246,7 @@ is run). (inferior-scheme-mode))) (setq scheme-program-name cmd) (setq scheme-buffer "*scheme*") - (switch-to-buffer "*scheme*")) + (pop-to-buffer-same-window "*scheme*")) (defun scheme-start-file (prog) "Return the name of the start file corresponding to PROG. @@ -371,7 +371,7 @@ With argument, position cursor at end of buffer." (interactive "P") (if (or (and scheme-buffer (get-buffer scheme-buffer)) (scheme-interactively-start-process)) - (switch-to-buffer scheme-buffer) + (pop-to-buffer-same-window scheme-buffer) (error "No current process buffer. See variable `scheme-buffer'")) (when eob-p (push-mark) |