From c320f0967db3ae2d49081f669e1f424a21a354fb Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Thu, 5 Jan 2023 23:28:36 +0300 Subject: [PATCH] fix: wrap exwm-workspace-switch in exwm--defer --- perspective-exwm.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perspective-exwm.el b/perspective-exwm.el index 3ca79f8..85d213c 100644 --- a/perspective-exwm.el +++ b/perspective-exwm.el @@ -199,8 +199,10 @@ detail." persp-name)) (cons i persp-name)))))) (choice (cdr (assoc (completing-read "Select a perspective: " choices) choices)))) - (exwm-workspace-switch (car choice)) - (persp-switch (cdr choice)))) + (exwm--defer + 0 (lambda () + (exwm-workspace-switch (car choice)) + (persp-switch (cdr choice)))))) ;;;###autoload (defun perspective-exwm-copy-to-workspace (&optional move)