mirror of
https://github.com/ch11ng/exwm.git
synced 2024-11-30 14:38:00 +01:00
Stop aborting recursive edit upon switching workspaces.
* exwm-workspace.el (exwm-workspace-switch): Stop aborting recursive edit upon switching workspaces. Users should handle it just like in regular Emacs (possibly customizing `enable-recursive-minibuffers').
This commit is contained in:
parent
cddb3429d2
commit
373eda99bd
1 changed files with 0 additions and 10 deletions
|
@ -587,16 +587,6 @@ for internal use only."
|
||||||
(when (or force (not (eq frame exwm-workspace--current)))
|
(when (or force (not (eq frame exwm-workspace--current)))
|
||||||
(unless (window-live-p window)
|
(unless (window-live-p window)
|
||||||
(setq window (frame-selected-window frame)))
|
(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.
|
;; Raise this frame.
|
||||||
(xcb:+request exwm--connection
|
(xcb:+request exwm--connection
|
||||||
(make-instance 'xcb:ConfigureWindow
|
(make-instance 'xcb:ConfigureWindow
|
||||||
|
|
Loading…
Reference in a new issue