branch: externals/exwm
commit 76c54b584565946f5d0ac66e0bf4b697aa9daf8e
Author: Steven Allen <[email protected]>
Commit: Steven Allen <[email protected]>
exwm: Prefer let-bindings over setq
* exwm.el (exwm--on-PropertyNotify): Convert the let-binding from let to
let* and absorb subsequent setq forms.
---
exwm.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/exwm.el b/exwm.el
index e2c8751fdc..225d92bce2 100644
--- a/exwm.el
+++ b/exwm.el
@@ -558,12 +558,11 @@ Descriptors' for the list of supported properties."
(defun exwm--on-PropertyNotify (data _synthetic)
"Handle PropertyNotify event.
DATA contains unmarshalled PropertyNotify event data."
- (let ((obj (xcb:unmarshal-new 'xcb:PropertyNotify data))
- atom id buffer)
- (setq id (slot-value obj 'window)
- atom (slot-value obj 'atom))
+ (let* ((obj (xcb:unmarshal-new 'xcb:PropertyNotify data))
+ (atom (slot-value obj 'atom))
+ (id (slot-value obj 'window))
+ (buffer (exwm--id->buffer id)))
(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.
(cond ((= atom xcb:Atom:_NET_WM_STRUT)
