Lines Matching refs:answer
554 (let ((answer (widget-apply widget :prompt-value prompt value unbound)))
555 (unless (widget-apply widget :match answer)
557 answer))
2286 (let ((answer (widget-checklist-match-up args values)))
2287 (cond (answer
2288 (let ((vals (widget-match-inline answer values)))
2291 args (delq answer args))))
2307 (let ((answer (widget-checklist-match-up args vals)))
2308 (cond (answer
2309 (let ((match (widget-match-inline answer vals)))
2310 (setq found (cons (cons answer (car match)) found)
2312 args (delq answer args))))
2610 (let ((answer (widget-match-inline type value)))
2611 (if answer
2615 (car answer)
2616 (car (car answer)))
2619 value (cdr answer))
2638 (let ((answer (widget-match-inline type value)))
2639 (if answer
2640 (setq found (append found (car answer))
2641 value (cdr answer))
2761 arg answer children)
2765 answer (widget-match-inline arg value)
2766 value (cdr answer))
2770 (push (cond ((null answer)
2773 (widget-create-child-value widget arg (car answer)))
2775 (widget-create-child-value widget arg (car (car answer)))))
2792 argument answer found)
2796 answer (widget-match-inline argument vals))
2797 (if answer
2798 (setq vals (cdr answer)
2799 found (append found (car answer)))
2802 (if answer
3083 ;;; (answer (read-file-name (concat menu-tag " (default " value "): ")
3085 ;;; (widget-value-set widget (abbreviate-file-name answer))
3119 (let ((answer (completing-read prompt obarray
3122 (if (and (stringp answer)
3123 (not (zerop (length answer))))
3124 answer
3194 (let ((answer
3200 (widget-value-set widget answer)
3345 (let ((answer (read-from-string found)))
3346 (unless (= (cdr answer) (length found))
3348 (substring found (cdr answer))))
3349 (car answer))))
3726 (answer (facemenu-read-color prompt)))
3727 (unless (zerop (length answer))
3728 (widget-value-set widget answer)