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

Under no-X builds, allow any value for 'fringe-bitmap' options

Browse Source 
* lisp/cus-edit (fringe-bitmap): Always match under no-X.
This commit is contained in:
Jim Porter 2022-08-31 22:52:34 -07:00
parent 177811ac0c
commit 4db596d316
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/cus-edit.el
View File

@ -4298,7 +4298,12 @@ restoring it to the state of a face that has never been customized."
"A Lisp fringe bitmap name."
:format "%v"
:tag "Fringe bitmap"
:match (lambda (_widget value) (fringe-bitmap-p value))
:match (lambda (_widget value)
;; In no-X builds (where `fringe-bitmaps' is undefined),
;; allow anything. This ensures that customizations set on
;; a with-X build aren't considered invalid under no-X.
(or (not (boundp 'fringe-bitmaps))
(fringe-bitmap-p value)))
:completions (apply-partially #'completion-table-with-predicate
obarray #'fringe-bitmap-p 'strict)
:prompt-match 'fringe-bitmap-p