From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 27 Sep 2022 13:56:22 +0000 (+0200)
Subject: ; Simplify wallpaper--format-arg with let-alist
X-Git-Tag: emacs-29.0.90~1856^2~188
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49d40cd95320d5f4de4362b32c8ed203a6ef573e;p=emacs.git

; Simplify wallpaper--format-arg with let-alist

* lisp/image/wallpaper.el (wallpaper--format-arg): Use let-alist.
---

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)