diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-09-01 13:04:30 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-09-01 13:04:30 -0400 |
| commit | 437014c8adcd604bdec350015d89eab1d7c12ec2 (patch) | |
| tree | 0f99a4185c3a4be031f3ee75af62d88cea64aa66 /lisp/view.el | |
| parent | 6ed17f119f52dee3199a3efbdf8a92b93f5f8fd0 (diff) | |
| download | emacs-437014c8adcd604bdec350015d89eab1d7c12ec2.tar.gz | |
Fix display-buffer interactive spec, and fixes for pop-to-buffer*.
* lisp/window.el (display-buffer): Restore interactive spec.
(display-buffer-same-window, display-buffer-other-window): New
functions.
(pop-to-buffer-1): New function. Use the above.
(pop-to-buffer, pop-to-buffer-same-window): Use it.
(pop-to-buffer-other-window, pop-to-buffer-other-frame): Deleted.
* lisp/view.el (view-buffer-other-window, view-buffer-other-frame):
Just use pop-to-buffer.
Diffstat (limited to 'lisp/view.el')
| -rw-r--r-- | lisp/view.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/view.el b/lisp/view.el index be011d217fc..96fecd9df1c 100644 --- a/lisp/view.el +++ b/lisp/view.el @@ -338,7 +338,8 @@ Optional argument EXIT-ACTION is either nil or a function with buffer as argument. This function is called when finished viewing buffer. Use this argument instead of explicitly setting `view-exit-action'." (interactive "bIn other window view buffer:\nP") - (pop-to-buffer-other-window buffer) + (let ((pop-up-windows t)) + (pop-to-buffer buffer t)) (view-mode-enter nil exit-action)) ;;;###autoload @@ -358,7 +359,8 @@ Optional argument EXIT-ACTION is either nil or a function with buffer as argument. This function is called when finished viewing buffer. Use this argument instead of explicitly setting `view-exit-action'." (interactive "bView buffer in other frame: \nP") - (pop-to-buffer-other-frame buffer) + (let ((pop-up-frames t)) + (pop-to-buffer buffer t)) (view-mode-enter nil exit-action)) ;;;###autoload |