From: Jim Porter <jporterbugs@gmail.com>
Date: Thu, 1 Sep 2022 05:52:34 +0000 (-0700)
Subject: Under no-X builds, allow any value for 'fringe-bitmap' options
X-Git-Tag: emacs-29.0.90~1856^2~802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4db596d316263a12bacf1632092a04032a8cde1c;p=emacs.git

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

* lisp/cus-edit (fringe-bitmap): Always match under no-X.
---

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