From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 15 Sep 2022 17:21:51 +0000 (+0200)
Subject: ; Fix wallpaper-set on TTY
X-Git-Tag: emacs-29.0.90~1856^2~479
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c1579697ff03d3991b41ead503211cffac0998f;p=emacs.git

; Fix wallpaper-set on TTY

* lisp/image/wallpaper.el (wallpaper-set): Don't check for
'display-graphic-p', to allow setting the wallpaper from a TTY.
---

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index 5622f9b8e8a..16fc9d23ecb 100644
--- a/lisp/image/wallpaper.el
+++ b/lisp/image/wallpaper.el
@@ -237,13 +237,11 @@ options `wallpaper-command' and `wallpaper-command-args'.
 
 On MS-Windows and Haiku systems, no external command is needed,
 so the value of `wallpaper-commands' is ignored."
-  (interactive (list (and
-                      (display-graphic-p)
-                      (read-file-name "Set desktop background to: "
-                                      default-directory nil t nil
-                                      (lambda (fn)
-                                        (or (file-directory-p fn)
-                                            (string-match (image-file-name-regexp) fn)))))))
+  (interactive (list (read-file-name "Set desktop background to: "
+                                     default-directory nil t nil
+                                     (lambda (fn)
+                                       (or (file-directory-p fn)
+                                           (string-match (image-file-name-regexp) fn))))))
   (when (file-directory-p file)
     (error "Can't set wallpaper to a directory: %s" file))
   (unless (file-exists-p file)