; 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 4ad09e893c1a16aff984c767dedf8ceb8e18b06f..0a891f9012ac044baeec68e3219a040b5c749a11 100644 (file)
--- 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)