From ca31697cc95491c19ff257c29bdab3b88d043b09 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 25 Aug 2026 21:11:27 +0100 Subject: emacs 31 --- custom/jao-custom-x11.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'custom/jao-custom-x11.el') diff --git a/custom/jao-custom-x11.el b/custom/jao-custom-x11.el index 3311668..6f0a607 100644 --- a/custom/jao-custom-x11.el +++ b/custom/jao-custom-x11.el @@ -79,11 +79,11 @@ (defun jao-set-wallpaper (&optional path) (interactive) (let ((current (format "~/.wallpaper.%s" (jao-colors-scheme)))) - (when-let ((f (or (and path (expand-file-name path)) - (read-file-name "Image: " - jao-wallpaper-dir - (file-symlink-p current) - t)))) + (when-let* ((f (or (and path (expand-file-name path)) + (read-file-name "Image: " + jao-wallpaper-dir + (file-symlink-p current) + t)))) (make-symbolic-link f current t) (cond (jao-river-enabled (jao-river-set-wallpaper f)) (jao-sway-enabled (jao-sway-set-wallpaper f)) -- cgit v1.2.3