From 49d40cd95320d5f4de4362b32c8ed203a6ef573e Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 27 Sep 2022 15:56:22 +0200 Subject: [PATCH] ; Simplify wallpaper--format-arg with let-alist * lisp/image/wallpaper.el (wallpaper--format-arg): Use let-alist. --- lisp/image/wallpaper.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el index 4ad09e893c1..0a891f9012a 100644 --- a/lisp/image/wallpaper.el +++ b/lisp/image/wallpaper.el @@ -422,11 +422,9 @@ FILE is the image file name." (match-string 1 display) "0"))) ;; monitor name - (?M . ,(let* ((attrs (car (display-monitor-attributes-list))) - (source (cdr (assq 'source attrs))) - (monitor (cdr (assq 'name attrs)))) - (if (and monitor (member source '("XRandr" "XRandR 1.5" "Gdk"))) - monitor + (?M . ,(let-alist (car (display-monitor-attributes-list)) + (if (and .name (member .source '("XRandr" "XRandR 1.5" "Gdk"))) + .name "0"))) ;; workspace (?W . ,(or (and (fboundp 'x-window-property) -- 2.39.2