master 3c1579697f: ; Fix wallpaper-set on TTY

[Stefan Kangas]

branch: master
commit 3c1579697ff03d3991b41ead503211cffac0998f
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; 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.
---
 lisp/image/wallpaper.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lisp/image/wallpaper.el b/lisp/image/wallpaper.el
index 5622f9b8e8..16fc9d23ec 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)