mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki 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
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." "A Lisp fringe bitmap name."
:format "%v" :format "%v"
:tag "Fringe bitmap" :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 :completions (apply-partially #'completion-table-with-predicate
obarray #'fringe-bitmap-p 'strict) obarray #'fringe-bitmap-p 'strict)
:prompt-match 'fringe-bitmap-p :prompt-match 'fringe-bitmap-p