(defvar mdw-designated-window nil
"The window chosen by `mdw-designate-window', or nil.")
+(defun mdw-display-buffer-in-designated-window (buffer alist)
+ "Display function to use the designated window."
+ (prog1 mdw-designated-window
+ (when mdw-designated-window
+ (with-selected-window mdw-designated-window
+ (switch-to-buffer buffer nil t)))
+ (setq mdw-designated-window nil)))
+
(defun mdw-designate-window (cancel)
"Use the selected window for the next pop-up buffer.
With a prefix argument, clear the designated window."
(setq mdw-designated-window (selected-window))
(message "Window designated."))))
-(defun mdw-display-buffer-in-designated-window (buffer alist)
- "Display function to use the designated window."
- (prog1 mdw-designated-window
- (when mdw-designated-window
- (with-selected-window mdw-designated-window
- (switch-to-buffer buffer nil t)))
- (setq mdw-designated-window nil)))
-
(setq display-buffer-base-action
(let* ((action display-buffer-base-action)
(funcs (car action))