diff options
| author | Jim Porter <jporterbugs@gmail.com> | 2022-08-31 22:52:34 -0700 |
|---|---|---|
| committer | Jim Porter <jporterbugs@gmail.com> | 2022-09-01 18:34:45 -0700 |
| commit | 4db596d316263a12bacf1632092a04032a8cde1c (patch) | |
| tree | 391c822d6094da225a2fafdeae86d54fe4e4a6da /lisp/cus-edit.el | |
| parent | 177811ac0c0e5e41d4f661e8e5553e46f0019b9a (diff) | |
| download | emacs-4db596d316263a12bacf1632092a04032a8cde1c.tar.gz emacs-4db596d316263a12bacf1632092a04032a8cde1c.tar.bz2 emacs-4db596d316263a12bacf1632092a04032a8cde1c.zip | |
Under no-X builds, allow any value for 'fringe-bitmap' options
* lisp/cus-edit (fringe-bitmap): Always match under no-X.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 7 |
1 files changed, 6 insertions, 1 deletions
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 |