procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(default, widget-default-default-get): Define it.

Browse source 
(group, widget-group-default-get): Define it.
(menu-choice, widget-choice-default-get): Define it.
(widget-default-get): New function.
(widget-choice-action): Call it.
(widget-editable-list-entry-create): Call it.
This commit is contained in:
Richard M. Stallman 1998-04-08 07:26:54 +00:00
parent cb183ca05d
commit 783824f57e
1 changed files with 25 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lisp/wid-edit.el
View file

@ -470,6 +470,11 @@ Otherwise, just return the value."
:value-set (widget-apply widget
:value-to-internal value)))
(defun widget-default-get (widget)
"Extract the defaylt value of WIDGET."
(or (widget-get widget :value)
(widget-apply widget :default-get)))
(defun widget-match-inline (widget vals)
;; In WIDGET, match the start of VALS.
(cond ((widget-get widget :inline)
@ -1334,6 +1339,7 @@ Optional EVENT is the event that triggered the action."
:delete 'widget-default-delete
:value-set 'widget-default-value-set
:value-inline 'widget-default-value-inline
:default-get 'widget-default-default-get
:menu-tag-get 'widget-default-menu-tag-get
:validate (lambda (widget) nil)
:active 'widget-default-active
@ -1530,6 +1536,10 @@ If that does not exists, call the value of `widget-complete-field'."
(widget-value widget)
(list (widget-value widget))))
(defun widget-default-default-get (widget)
;; Get `:value'.
(widget-get widget :value))
(defun widget-default-menu-tag-get (widget)
;; Use tag or value for menus.
(or (widget-get widget :menu-tag)
@ -1903,6 +1913,7 @@ If END is omitted, it defaults to the length of LIST."
:value-delete 'widget-children-value-delete
:value-get 'widget-choice-value-get
:value-inline 'widget-choice-value-inline
:default-get 'widget-choice-default-get
:mouse-down-action 'widget-choice-mouse-down-action
:action 'widget-choice-action
:error "Make a choice"
@ -1947,6 +1958,10 @@ If END is omitted, it defaults to the length of LIST."
;; Get value of the child widget.
(widget-apply (car (widget-get widget :children)) :value-inline))
(defun widget-choice-default-get (widget)
;; Get default for the first choice.
(widget-default-get (car (widget-get widget :args))))
(defcustom widget-choice-toggle nil
"If non-nil, a binary choice will just toggle between the values.
Otherwise, the user will explicitly have to choose between the values
@ -2023,9 +2038,9 @@ when he invoked the menu."
(when this-explicit
(widget-put widget :explicit-choice current)
(widget-put widget :explicit-choice-value (widget-get widget :value)))
(widget-value-set widget
(widget-apply current :value-to-external
(widget-get current :value)))
(let ((value (widget-default-get current)))
(widget-value-set widget
(widget-apply current :value-to-external value)))
(widget-setup)
(widget-apply widget :notify widget event)))
(run-hook-with-args 'widget-edit-functions widget))
@ -2635,7 +2650,8 @@ when he invoked the menu."
(if conv
(setq child (widget-create-child-value
widget type value))
(setq child (widget-create-child widget type))))
(setq child (widget-create-child-value
widget type (widget-default-get type)))))
(t
(error "Unknown escape `%c'" escape)))))
(widget-put widget
@ -2661,6 +2677,7 @@ when he invoked the menu."
:value-create 'widget-group-value-create
:value-delete 'widget-children-value-delete
:value-get 'widget-editable-list-value-get
:default-get 'widget-group-default-get
:validate 'widget-children-validate
:match 'widget-group-match
:match-inline 'widget-group-match-inline)
@ -2687,6 +2704,10 @@ when he invoked the menu."
children))
(widget-put widget :children (nreverse children))))
(defun widget-group-default-get (widget)
;; Get the default of the components.
(mapcar 'widget-default-get (widget-get widget :args)))
(defun widget-group-match (widget values)
;; Match if the components match.
(and (listp values)