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 a4c292f2b60cdd355c8ca0632cc6f9fad0b48ce9..eee4be6a10e9ff995cbf264c892e14c8c0af626a 100644 (file)
--- 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 41ed05f191a7883967d52b8cea1dc8d74dc9f4d5..bcff62484fd53916ff90a9179fba7f6c6c851142 100644 (file)
--- 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 31091a6002c9d9cc42f0851d70c7567641dde587..aea13227a803f289a9b23a96abe589d3991e50d7 100644 (file)
--- 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 0c5307f8de3b6460eff40704d8302d5e5468ba6c..a9ff9f5ebc4e256e8d7ddec540a4855893a6e0d8 100644 (file)
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -54,7 +54,6 @@
 ;;; Code:
 
 (require 'dired)
-(require 'wallpaper)
 (require 'cl-lib)                      ; for cl-gensym
 
 ;; CUSTOMIZATIONS