diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-07-17T12·00+0000 |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2016-07-17T12·00+0000 |
| commit | 90185457261eb77ac80609d5d219e0837e81af82 (patch) | |
| tree | ad36307ae0ba561a01d20b5ec12a37ef9ff07c4f /exwm-layout.el | |
| parent | 8e2da00b6e7e530a53b584184dc94b9366ae7c69 (diff) | |
New function exwm-workspace--workspace-p
* exwm-workspace.el (exwm-workspace--workspace-p): New function. * exwm-input.el (exwm-input--on-ButtonPress): * exwm-workspace.el (exwm-workspace-switch): * exwm-layout.el (exwm-layout--refresh): Use it.
Diffstat (limited to 'exwm-layout.el')
| -rw-r--r-- | exwm-layout.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/exwm-layout.el b/exwm-layout.el index db1aa0d5fd..4d85390047 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -153,7 +153,6 @@ (xcb:flush exwm--connection)))) (defvar exwm-workspace--current) -(defvar exwm-workspace--list) (declare-function exwm-input-grab-keyboard "exwm-input.el") (declare-function exwm-input-release-keyboard "exwm-input.el") @@ -282,6 +281,8 @@ selected by `other-buffer'." (defvar exwm-layout-show-all-buffers nil "Non-nil to allow switching to buffers on other workspaces.") +(declare-function exwm-workspace--workspace-p "exwm-workspace.el" + (workspace)) (defun exwm-layout--set-client-list-stacking () "Set _NET_CLIENT_LIST_STACKING." @@ -312,7 +313,7 @@ selected by `other-buffer'." covered-buffers ;EXWM-buffers covered by a new X window. vacated-windows ;Windows previously displaying EXWM-buffers. windows) - (if (not (memq frame exwm-workspace--list)) + (if (not (exwm-workspace--workspace-p frame)) (if (frame-parameter frame 'exwm-outer-id) ;; Refresh a floating frame (let ((window (frame-first-window frame))) |