branch: externals/exwm
commit 1fecdc79d9fe9e33577fa3eea2a86fe168989fd8
Author: Steven Allen <[email protected]>
Commit: Steven Allen <[email protected]>
exwm-randr: Combine sequential lets into a let*
* exwm-randr.el (exwm-randr--on-ScreenChangeNotify): Combine sequential
lets.
---
exwm-randr.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/exwm-randr.el b/exwm-randr.el
index de31251255..d625e1e007 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -295,11 +295,11 @@ In a mirroring setup some monitors overlap and should be
treated as one."
Run `exwm-randr-screen-change-hook' (usually user scripts to configure RandR)."
(exwm--log)
- (let ((evt (xcb:unmarshal-new 'xcb:randr:ScreenChangeNotify data)))
- (let ((ts (slot-value evt 'config-timestamp)))
- (unless (equal ts exwm-randr--prev-screen-change-timestamp)
- (setq exwm-randr--prev-screen-change-timestamp ts)
- (run-hooks 'exwm-randr-screen-change-hook)))))
+ (let* ((evt (xcb:unmarshal-new 'xcb:randr:ScreenChangeNotify data))
+ (ts (slot-value evt 'config-timestamp)))
+ (unless (equal ts exwm-randr--prev-screen-change-timestamp)
+ (setq exwm-randr--prev-screen-change-timestamp ts)
+ (run-hooks 'exwm-randr-screen-change-hook))))
(defun exwm-randr--on-Notify (data _synthetic)
"Handle `CrtcChangeNotify' and `OutputChangeNotify' events with DATA.
