diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2015-09-17T11·48+0800 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2015-09-17T11·48+0800 |
| commit | 4255f078a690751a20377372be1352698e041ad0 (patch) | |
| tree | 4d8c8433ff92ee7007f67a1b24729b147d63a264 /exwm.el | |
| parent | b458d5ac30afed348df4788721bb48be94e97c60 (diff) | |
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.
Diffstat (limited to 'exwm.el')
| -rw-r--r-- | exwm.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/exwm.el b/exwm.el index 9311af1c8d13..d2a0ecf14460 100644 --- a/exwm.el +++ b/exwm.el @@ -230,7 +230,7 @@ (not (eq exwm--frame exwm-workspace--current))) (unless (frame-parameter exwm--frame 'exwm--urgency) (set-frame-parameter exwm--frame 'exwm--urgency t) - (exwm-workspace--update-switch-history)))))))) + (setq exwm-workspace--switch-history-outdated t)))))))) ;;;###autoload (defun exwm--update-protocols (id &optional force) @@ -389,7 +389,7 @@ (let ((idx (cl-position exwm--frame exwm-workspace--list))) (unless (= idx exwm-workspace-current-index) (set-frame-parameter exwm--frame 'exwm--urgency t) - (exwm-workspace--update-switch-history)))) + (setq exwm-workspace--switch-history-outdated t)))) ;; xcb:ewmh:_NET_WM_STATE_REMOVE? ;; xcb:ewmh:_NET_WM_STATE_TOGGLE? ) |