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 31cc2b4eece13d1f9e086fdb218b7b309c93dcb8..19dc20d90b001698bcc241dc9c879a334e7b3b22 100644 (file)
--- 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)