From 90185457261eb77ac80609d5d219e0837e81af82 Mon Sep 17 00:00:00 2001 From: Adrián Medraño Calvo Date: Sun, 17 Jul 2016 12:00:00 +0000 Subject: 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. --- exwm-input.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'exwm-input.el') diff --git a/exwm-input.el b/exwm-input.el index d581e7e85785..22c7a3606b52 100644 --- a/exwm-input.el +++ b/exwm-input.el @@ -180,6 +180,7 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.") (declare-function exwm-floating--start-moveresize "exwm-floating.el" (id &optional type)) (declare-function exwm-workspace--position "exwm-workspace.el" (frame)) +(declare-function exwm-workspace--workspace-p "exwm-workspace.el" (workspace)) (defvar exwm-workspace--list) @@ -206,7 +207,7 @@ It's updated in several occasions, and only used by `exwm-input--set-focus'.") (unless (eq window (selected-window)) (setq frame (window-frame window)) (unless (eq frame exwm-workspace--current) - (if (memq frame exwm-workspace--list) + (if (exwm-workspace--workspace-p frame) ;; The X window is on another workspace (exwm-workspace-switch (exwm-workspace--position frame)) -- cgit 1.4.1