From 4255f078a690751a20377372be1352698e041ad0 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Thu, 17 Sep 2015 19:48:50 +0800 Subject: On-demand update exwm-workspace--switch-history * exwm-workspace.el (exwm-workspace--switch-history-outdated) (exwm-workspace--update-switch-history, exwm-workspace-switch) (exwm-workspace-move-window): * exwm.el (exwm--update-hints, exwm--on-ClientMessage): * exwm-floating.el (exwm-floating--set-floating): * exwm-manage.el (exwm-manage--manage-window, exwm-manage--unmanage-window): Update exwm-workspace--switch-history only when it's used. --- exwm-floating.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'exwm-floating.el') diff --git a/exwm-floating.el b/exwm-floating.el index 12390b0ea2e1..346f02e8caa7 100644 --- a/exwm-floating.el +++ b/exwm-floating.el @@ -94,7 +94,7 @@ (let ((idx (cl-position original-frame exwm-workspace--list))) (when (/= idx exwm-workspace-current-index) (set-frame-parameter original-frame 'exwm--urgency t) - (exwm-workspace--update-switch-history))) + (setq exwm-workspace--switch-history-outdated t))) ;; Fix illegal parameters ;; FIXME: check normal hints restrictions (let* ((display-width (frame-pixel-width original-frame)) -- cgit 1.4.1