From 3c1579697ff03d3991b41ead503211cffac0998f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 15 Sep 2022 19:21:51 +0200 Subject: [PATCH] ; 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 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) -- 2.39.2