mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

Prompt for wallpaper width/height only when needed

Browse Source 
* lisp/image/wallpaper.el (wallpaper--format-arg): Don't prompt for
width and height unless the values are actually used.
This commit is contained in:
Stefan Kangas 2022-09-27 20:09:01 +02:00
parent 5281946fbf
commit b71241742c
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/image/wallpaper.el
View File

@ -405,14 +405,16 @@ FILE is the image file name."
(?F . ,(mapconcat #'url-hexify-string
(file-name-split file)
"/"))
(?h . ,(wallpaper--get-height-or-width
"height"
#'display-pixel-height
wallpaper-default-height))
(?w . ,(wallpaper--get-height-or-width
"width"
#'display-pixel-width
wallpaper-default-width))
(?h . ,(lambda ()
(wallpaper--get-height-or-width
"height"
#'display-pixel-height
wallpaper-default-height)))
(?w . ,(lambda ()
(wallpaper--get-height-or-width
"width"
#'display-pixel-width
wallpaper-default-width)))
;; screen number
(?S . ,(let ((display (frame-parameter (selected-frame) 'display)))
(if (and display