diff options
| author | Mauro Aranda | 2023-07-16 09:22:11 -0300 |
|---|---|---|
| committer | Eli Zaretskii | 2023-07-22 15:58:02 +0300 |
| commit | d09464e50482a792cc11c20916167d3f62637c2d (patch) | |
| tree | 308572e8553c85e579cb143c6bc8790f40c77898 | |
| parent | b4824faa62272823d1e6326682a1f5c303498f7e (diff) | |
| download | emacs-d09464e50482a792cc11c20916167d3f62637c2d.tar.gz emacs-d09464e50482a792cc11c20916167d3f62637c2d.zip | |
Don't always toggle a choice when prompting
* lisp/wid-edit.el (widget-choice-prompt-value): Respect the value
of widget-choice-toggle. (Bug#60712)
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index b9291af2bd5..88f8a362521 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -3988,7 +3988,8 @@ current choice is inline." | |||
| 3988 | nil) | 3988 | nil) |
| 3989 | ((= (length args) 1) | 3989 | ((= (length args) 1) |
| 3990 | (nth 0 args)) | 3990 | (nth 0 args)) |
| 3991 | ((and (= (length args) 2) | 3991 | ((and widget-choice-toggle |
| 3992 | (= (length args) 2) | ||
| 3992 | (memq old args)) | 3993 | (memq old args)) |
| 3993 | (if (eq old (nth 0 args)) | 3994 | (if (eq old (nth 0 args)) |
| 3994 | (nth 1 args) | 3995 | (nth 1 args) |