Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

(widget-choice-value-create): Unconditionally respect user choice.

Browse source 
Set :explicit-choice back to nil when no longer needed.
(widget-choice-action): Unconditionally respect user choice.
Eliminate :explicit-choice-value.
This commit is contained in:
Luc Teirlinck 2005-08-07 01:07:33 +00:00
parent ff2b1744fe
commit 25e3656c19
1 changed files with 7 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/wid-edit.el
View file

@ -1956,13 +1956,14 @@ the earlier input."
(args (widget-get widget :args))
(explicit (widget-get widget :explicit-choice))
current)
(if (and explicit (equal value (widget-get widget :explicit-choice-value)))
(if explicit
(progn
;; If the user specified the choice for this value,
;; respect that choice as long as the value is the same.
;; respect that choice.
(widget-put widget :children (list (widget-create-child-value
widget explicit value)))
(widget-put widget :choice explicit))
(widget-put widget :choice explicit)
(widget-put widget :explicit-choice nil))
(while args
(setq current (car args)
args (cdr args))
@ -2048,13 +2049,10 @@ when he invoked the menu."
(setq this-explicit t)
(widget-choose tag (reverse choices) event))))
(when current
;; If this was an explicit user choice,
;; record the choice, and the record the value it was made for.
;; widget-choice-value-create will respect this choice,
;; as long as the value is the same.
;; If this was an explicit user choice, record the choice,
;; so that widget-choice-value-create will respect it.
(when this-explicit
(widget-put widget :explicit-choice current)
(widget-put widget :explicit-choice-value (widget-get widget :value)))
(widget-put widget :explicit-choice current))
(widget-value-set widget (widget-default-get current))
(widget-setup)
(widget-apply widget :notify widget event)))