Trace more functions
This commit is contained in:
parent
ac600f0916
commit
33dec8d1a3
6 changed files with 72 additions and 1 deletions
2
exwm.el
2
exwm.el
|
|
@ -360,6 +360,7 @@
|
|||
(xcb:unmarshal obj data)
|
||||
(setq id (slot-value obj 'window)
|
||||
atom (slot-value obj 'atom))
|
||||
(exwm--log "atom=%s(%s)" (x-get-atom-name atom exwm-workspace--current) atom)
|
||||
(setq buffer (exwm--id->buffer id))
|
||||
(if (not (buffer-live-p buffer))
|
||||
;; Properties of unmanaged X windows.
|
||||
|
|
@ -397,6 +398,7 @@
|
|||
(setq type (slot-value obj 'type)
|
||||
id (slot-value obj 'window)
|
||||
data (slot-value (slot-value obj 'data) 'data32))
|
||||
(exwm--log "atom=%s(%s)" (x-get-atom-name type exwm-workspace--current) type)
|
||||
(cond
|
||||
;; _NET_NUMBER_OF_DESKTOPS.
|
||||
((= type xcb:Atom:_NET_NUMBER_OF_DESKTOPS)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue