From 95a5792c2b2968ab6ef64039bbcb5ec8b1f1cf45 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 25 Mar 2023 12:58:22 +0000 Subject: [PATCH] el/dot-emacs.el: Hoist `mdw-display-buffer-in-designated-window'. I want to add a related functin nearby, and that function should precede `mdw-designated-window'. --- el/dot-emacs.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/el/dot-emacs.el b/el/dot-emacs.el index 3bed078..16ee196 100644 --- a/el/dot-emacs.el +++ b/el/dot-emacs.el @@ -663,6 +663,14 @@ Evil key bindings are defined in `mdw-evil-keymap-keys'." (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." @@ -674,14 +682,6 @@ 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)) -- 2.11.0