From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 26 Sep 2022 15:41:11 +0000 (+0200)
Subject: Display a message when wallpaper was set
X-Git-Tag: emacs-29.0.90~1856^2~210
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ec061bf9c8a2caf8eaf57dba001c130d3a3ecd6;p=emacs.git

Display a message when wallpaper was set

* lisp/image/wallpaper.el (wallpaper-default-set-function): Display a
message when the wallpaper was successfully set.
---

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index 31cc2b4eece..19dc20d90b0 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -439,8 +439,10 @@ This is the default function for `wallpaper-set-function'."
     (setf (process-sentinel process)
           (lambda (process status)
             (unwind-protect
-                (unless (and (eq (process-status process) 'exit)
-                             (zerop (process-exit-status process)))
+                (if (and (eq (process-status process) 'exit)
+                         (zerop (process-exit-status process)))
+                    (message "Desktop wallpaper changed to %s"
+                             (abbreviate-file-name file))
                   (message "command \"%s %s\": %S"
                            (string-join (process-command process) " ")
                            (string-replace "\n" "" status)