[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/xelb 185d266: Support WM_Sn atoms (#19)
From: |
Chris Feng |
Subject: |
[elpa] externals/xelb 185d266: Support WM_Sn atoms (#19) |
Date: |
Wed, 7 Mar 2018 12:06:55 -0500 (EST) |
branch: externals/xelb
commit 185d266103071454e317fc3859d42b7a6a046985
Author: medranocalvo <address@hidden>
Commit: Chris Feng <address@hidden>
Support WM_Sn atoms (#19)
* xcb-icccm.el (xcb:icccm:-atom, xcb:icccm:init): Register WM_Sn
atoms for each screen.
---
xcb-icccm.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/xcb-icccm.el b/xcb-icccm.el
index aa6925b..613bed1 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -49,7 +49,7 @@
(defconst xcb:icccm:-atoms
'(UTF8_STRING COMPOUND_TEXT TEXT C_STRING MANAGER
WM_PROTOCOLS WM_TAKE_FOCUS WM_DELETE_WINDOW
- WM_STATE WM_CHANGE_STATE)
+ WM_STATE WM_CHANGE_STATE WM_S0)
"Atoms involved in ICCCM.")
(dolist (atom xcb:icccm:-atoms)
@@ -60,11 +60,14 @@
This method must be called before using any other method in this module."
(when (or force (not xcb:Atom:WM_PROTOCOLS))
- (xcb:icccm:intern-atoms obj xcb:icccm:-atoms force)))
+ (let ((atoms xcb:icccm:-atoms))
+ (dotimes (i (1- (x-display-screens)))
+ (push (intern (format "WM_S%d" (1+ i))) atoms))
+ (xcb:icccm:intern-atoms obj atoms force))))
(cl-defmethod xcb:icccm:intern-atoms ((obj xcb:connection) atoms
&optional force)
- "Intern the X atoms listed in the list AOTMS.
+ "Intern the X atoms listed in the list ATOMS.
The value of these atoms will be available in `xcb:Atom' namespace."
(dolist (atom atoms)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/xelb 185d266: Support WM_Sn atoms (#19),
Chris Feng <=