From 2ec061bf9c8a2caf8eaf57dba001c130d3a3ecd6 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 26 Sep 2022 17:41:11 +0200 Subject: [PATCH] Display a message when wallpaper was set * lisp/image/wallpaper.el (wallpaper-default-set-function): Display a message when the wallpaper was successfully set. --- lisp/image/wallpaper.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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) -- 2.39.2