From: Stefan Kangas <stefankangas@gmail.com>
Date: Fri, 23 Sep 2022 09:50:28 +0000 (+0200)
Subject: Autoload wallpaper-set
X-Git-Tag: emacs-29.0.90~1856^2~305
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8892abbaf92ebd2e8f968fe86270fba08bf1d07a;p=emacs.git

Autoload wallpaper-set

* lisp/image/wallpaper.el (wallpaper-set): Autoload.
* lisp/image-mode.el (wallpaper):
* lisp/image/image-dired.el (wallpaper):
* lisp/thumbs.el (wallpaper): Don't require.
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index a4c292f2b60..eee4be6a10e 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -45,7 +45,6 @@
 (require 'image)
 (require 'exif)
 (require 'dired)
-(require 'wallpaper)
 (eval-when-compile (require 'cl-lib))
 
 ;;; Image mode window-info management.
diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 41ed05f191a..bcff62484fd 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -133,7 +133,6 @@
 
 (require 'dired)
 (require 'image-mode)
-(require 'wallpaper)
 (require 'widget)
 (require 'xdg)
 
diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index 31091a6002c..aea13227a80 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -279,6 +279,7 @@ See also `wallpaper-default-width'.")
 (declare-function w32-set-wallpaper "w32fns.c")
 (declare-function haiku-set-wallpaper "term/haiku-win.el")
 
+;;;###autoload
 (defun wallpaper-set (file)
   "Set the desktop background to FILE in a graphical environment.
 
diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index 0c5307f8de3..a9ff9f5ebc4 100644
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -54,7 +54,6 @@
 ;;; Code:
 
 (require 'dired)
-(require 'wallpaper)
 (require 'cl-lib)			; for cl-gensym
 
 ;; CUSTOMIZATIONS