|
@@ -809,7 +809,9 @@ Raise an error when current buffer is not a source editing buffer."
|
|
(pop-to-buffer buffer))
|
|
(pop-to-buffer buffer))
|
|
(`current-window (pop-to-buffer-same-window buffer))
|
|
(`current-window (pop-to-buffer-same-window buffer))
|
|
(`other-window
|
|
(`other-window
|
|
- (switch-to-buffer-other-window buffer))
|
|
|
|
|
|
+ (let ((cur-win (selected-window)))
|
|
|
|
+ (switch-to-buffer-other-window buffer)
|
|
|
|
+ (when (eq context 'exit) (quit-restore-window cur-win))))
|
|
(`split-window-below
|
|
(`split-window-below
|
|
(if (eq context 'exit)
|
|
(if (eq context 'exit)
|
|
(delete-window)
|
|
(delete-window)
|