Function: widget-checklist-match-find

widget-checklist-match-find is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-checklist-match-find WIDGET &optional VALS)

Documentation

Find the vals which match a type in the checklist.

Return an alist of (TYPE MATCH).

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-checklist-match-find (widget &optional vals)
  "Find the vals which match a type in the checklist.
Return an alist of (TYPE MATCH)."
  (or vals (setq vals (widget-get widget :value)))
  (let ((greedy (widget-get widget :greedy))
	(args (copy-sequence (widget-get widget :args)))
	found)
    (while vals
      (let ((answer (widget-checklist-match-up args vals)))
	(cond (answer
	       (let ((match (widget-match-inline answer vals)))
		 (setq found (cons (cons answer (car match)) found)
		       vals (cdr match)
		       args (delq answer args))))
	      (greedy
	       (setq vals (cdr vals)))
	      (t
	       (setq vals nil)))))
    found))