master 49d40cd953: ; Simplify wallpaper--format-arg with let-alist

[Stefan Kangas]

branch: master
commit 49d40cd95320d5f4de4362b32c8ed203a6ef573e
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; 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 4ad09e893c..0a891f9012 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)