From cddb3429d2219ed5e15761e4b7b61be1a14970bd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?= Date: Wed, 15 Apr 2020 00:00:00 +0000 Subject: [PATCH] Abort recursive edit before switching workspaces * exwm-workspace.el (exwm-workspace-switch): Abort recursive edit before switching to other workspace. This avoids the usual `set-window-configuration' calls (e.g., by `eval-expression') to switch *us back to the previous workspace. --- exwm-workspace.el | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/exwm-workspace.el b/exwm-workspace.el index 4da97d9..1f832a6 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -587,6 +587,16 @@ for internal use only." (when (or force (not (eq frame exwm-workspace--current))) (unless (window-live-p window) (setq window (frame-selected-window frame))) + ;; Close the (possible) active minibuffer. Aborting the recursive edit + ;; level will abort the execution of this very command. Schedule it to + ;; run immediately afterward. This must all be done before the new + ;; workspace is selected in the new workspace, in order to avoid the focus + ;; to go back to the previous frame due to resetting the window + ;; configuration (e.g. `eval-expression'). + (when (active-minibuffer-window) + (exwm--defer 0 (lambda () + (exwm-workspace-switch frame-or-index force))) + (abort-recursive-edit)) ;; Raise this frame. (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow @@ -635,12 +645,6 @@ for internal use only." (select-window window) (x-focus-frame (window-frame window)) ;The real input focus. (set-frame-parameter frame 'exwm-selected-window nil) - ;; Close the (possible) active minibuffer - (when (active-minibuffer-window) - (exwm--defer 0 (lambda () - ;; Might be aborted by then. - (when (active-minibuffer-window) - (abort-recursive-edit))))) (if (exwm-workspace--minibuffer-own-frame-p) ;; Resize the minibuffer frame. (exwm-workspace--resize-minibuffer-frame)