Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix loading wallpaper.el on MS-Windows

Browse source 
* lisp/image/wallpaper.el (wallpaper--find-command)
(wallpaper--find-command-args): Avoid backtrace when
'wallpaper--find-setter' returns nil, e.g. on MS-Windows.
(Bug#58167)
This commit is contained in:
Stefan Kangas 2022-09-29 18:44:03 +02:00
parent 0edd7770e0
commit 696c528379
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/image/wallpaper.el
View file

@ -271,11 +271,13 @@ order in which they appear.")
(defun wallpaper--find-command ()
"Return a valid command to set the wallpaper in this environment."
(wallpaper-setter-command (wallpaper--find-setter)))
(when-let ((setter (wallpaper--find-setter)))
(wallpaper-setter-command setter)))
(defun wallpaper--find-command-args ()
"Return command line arguments matching `wallpaper-command'."
(wallpaper-setter-args (wallpaper--find-setter)))
(when-let ((setter (wallpaper--find-setter)))
(wallpaper-setter-args setter)))
;;; Customizable variables