[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 4db596d316: Under no-X builds, allow any value for 'fringe-bitmap
From: |
Jim Porter |
Subject: |
master 4db596d316: Under no-X builds, allow any value for 'fringe-bitmap' options |
Date: |
Thu, 1 Sep 2022 21:35:50 -0400 (EDT) |
branch: master
commit 4db596d316263a12bacf1632092a04032a8cde1c
Author: Jim Porter <jporterbugs@gmail.com>
Commit: Jim Porter <jporterbugs@gmail.com>
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 d3768766be..ee32c9c945 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4db596d316: Under no-X builds, allow any value for 'fringe-bitmap' options,
Jim Porter <=