[elpa] externals/exwm 108b394 7/7: Fix _NET_DESKTOP_VIEWPORT

[Chris Feng]

branch: externals/exwm
commit 108b3949c26f55cfdb96866dedac3f68c893692f
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Fix _NET_DESKTOP_VIEWPORT
    
    * exwm-workspace.el (exwm-workspace--update-ewmh-props):
    * exwm.el (exwm--init-icccm-ewmh):
    Set _NET_DESKTOP_VIEWPORT on startup since it's a constant.
---
 exwm-workspace.el |    5 -----
 exwm.el           |    5 +++++
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index 0e078b7..77c9417 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1320,11 +1320,6 @@ Please check `exwm-workspace--minibuffer-own-frame-p' 
first."
                        :window exwm--root :data num-workspaces))
     ;; Set _NET_DESKTOP_GEOMETRY.
     (exwm-workspace--set-desktop-geometry)
-    ;; Set _NET_DESKTOP_VIEWPORT (we don't support large desktop).
-    (xcb:+request exwm--connection
-        (make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
-                       :window exwm--root
-                       :data (make-vector (* 2 num-workspaces) 0)))
     ;; Update and set _NET_WORKAREA.
     (exwm-workspace--update-workareas)
     ;; Set _NET_VIRTUAL_ROOTS.
diff --git a/exwm.el b/exwm.el
index 6737443..a972367 100644
--- a/exwm.el
+++ b/exwm.el
@@ -628,6 +628,11 @@
       (xcb:+request exwm--connection
           (make-instance 'xcb:ewmh:set-_NET_WM_NAME
                          :window i :data "EXWM"))))
+  ;; Set _NET_DESKTOP_VIEWPORT (we don't support large desktop).
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
+                     :window exwm--root
+                     :data [0 0]))
   (xcb:flush exwm--connection))
 
 (defun exwm--exit-icccm-ewmh ()