diff options
| author | Robert Pluim <rpluim@gmail.com> | 2023-01-06 09:00:00 +0100 |
|---|---|---|
| committer | Robert Pluim <rpluim@gmail.com> | 2023-01-06 10:06:25 +0100 |
| commit | 7420b6dcc379617ca9691049c16bfb2d158f9496 (patch) | |
| tree | 22b0009d5b2d22c5f2cd5c1b936ef3f128ea8d65 /lisp/wid-edit.el | |
| parent | 699711786ac7aa6d6524467076a45568e283e061 (diff) | |
| download | emacs-7420b6dcc379617ca9691049c16bfb2d158f9496.tar.gz emacs-7420b6dcc379617ca9691049c16bfb2d158f9496.tar.bz2 emacs-7420b6dcc379617ca9691049c16bfb2d158f9496.zip | |
Fix `pr-interface'
`pr-interface' specifies `inline' for its menu items, which is not
necessary, but it causes `widget-choice-value-create' to bug
out. (Bug#60501)
* lisp/wid-edit.el (widget-choice-value-create): Allow the value to be
a non-list.
* test/lisp/wid-edit-tests.el (widget-test-handle-spurious-inline):
Add test to ensure that unnecessary :inline is allowed.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 798db9f9dd2..60bd2baa6fb 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2220,7 +2220,9 @@ But if NO-TRUNCATE is non-nil, include them." (if (widget-get current :inline) (setq val value fun :match-inline) - (setq val (car value) + (setq val (if (consp value) + (car value) + value) fun :match)) (setq val value fun :match)) |