From 4db596d316263a12bacf1632092a04032a8cde1c Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Wed, 31 Aug 2022 22:52:34 -0700 Subject: [PATCH] Under no-X builds, allow any value for 'fringe-bitmap' options * lisp/cus-edit (fringe-bitmap): Always match under no-X. --- lisp/cus-edit.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index d3768766be0..ee32c9c945e 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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 -- 2.39.5