Lines Matching +defs:match +defs:beginning
527 (defun widget-match-inline (widget vals)
528 "In WIDGET, match the start of VALS."
530 (widget-apply widget :match-inline vals))
532 (widget-apply widget :match (car vals)))
555 (unless (widget-apply widget :match answer)
556 (error "Value does not match %S type" (car widget)))
880 ;; ordinary beginning-of-line does the right thing.
881 ;; (define-key map "\C-a" 'widget-beginning-of-line)
889 ;; ordinary beginning-of-line does the right thing.
890 ;; (define-key map "\C-a" 'widget-beginning-of-line)
995 ;; (beginning-of-line)
1109 ;; ordinary beginning-of-line does the right thing.
1110 (defalias 'widget-beginning-of-line 'beginning-of-line)
1124 (skip-chars-backward " " (field-beginning (1- (point))))))
1131 (if (and field (> (line-beginning-position 2) end))
1146 (narrow-to-region (line-beginning-position) (line-end-position)))))
1375 (defun widget-type-match (widget value)
1379 (widget-apply (widget-convert (widget-get widget :type)) :match value))
1457 (let ((escape (char-after (match-beginning 1))))
1539 ;; The `*' in the beginning is redundant.
1543 (when (string-match "\n+\\'" doc-text)
1544 (setq doc-text (substring doc-text 0 (match-beginning 0))))
1683 :match 'widget-item-match
1684 :match-inline 'widget-item-match-inline
1692 (defun widget-item-match (widget value)
1696 (defun widget-item-match-inline (widget values)
1869 :error "Field's value doesn't match allowed forms"
1873 :match 'widget-field-match)
1905 (unless (string-match (widget-get widget :valid-regexp)
1968 (defun widget-field-match (widget value)
1996 :match 'widget-choice-match
1997 :match-inline 'widget-choice-match-inline)
2016 (when (widget-apply current :match value)
2113 (defun widget-choice-match (widget value)
2120 found (widget-apply current :match value)))
2123 (defun widget-choice-match-inline (widget values)
2130 found (widget-match-inline current values)))
2140 :match (lambda (widget value) t)
2218 :match 'widget-checklist-match
2219 :match-inline 'widget-checklist-match-inline)
2223 (let ((alist (widget-checklist-match-find widget (widget-get widget :value)))
2247 (let ((escape (char-after (match-beginning 1))))
2275 (defun widget-checklist-match (widget values)
2276 ;; All values must match a type in the checklist.
2278 (null (cdr (widget-checklist-match-inline widget values)))))
2280 (defun widget-checklist-match-inline (widget values)
2281 ;; Find the values which match a type in the checklist.
2286 (let ((answer (widget-checklist-match-up args values)))
2288 (let ((vals (widget-match-inline answer values)))
2300 (defun widget-checklist-match-find (widget vals)
2301 "Find the vals which match a type in the checklist.
2307 (let ((answer (widget-checklist-match-up args vals)))
2309 (let ((match (widget-match-inline answer vals)))
2310 (setq found (cons (cons answer (car match)) found)
2311 vals (cdr match)
2319 (defun widget-checklist-match-up (args vals)
2325 found (widget-match-inline current vals)))
2397 :match 'widget-choice-match
2398 :match-inline 'widget-choice-match-inline
2424 (widget-apply type :match value)))
2430 (let ((escape (char-after (match-beginning 1))))
2497 (match (and (not found)
2498 (widget-apply current :match value))))
2499 (widget-value-set button match)
2500 (if match
2505 (setq found (or found match))))))
2583 :match 'widget-editable-list-match
2584 :match-inline 'widget-editable-list-match-inline
2610 (let ((answer (widget-match-inline type value)))
2628 (defun widget-editable-list-match (widget value)
2629 ;; Value must be a list and all the members must match the type.
2631 (null (cdr (widget-editable-list-match-inline widget value)))))
2633 (defun widget-editable-list-match-inline (widget value)
2638 (let ((answer (widget-match-inline type value)))
2709 (let ((escape (char-after (match-beginning 1))))
2754 :match 'widget-group-match
2755 :match-inline 'widget-group-match-inline)
2765 answer (widget-match-inline arg value)
2783 (defun widget-group-match (widget values)
2784 ;; Match if the components match.
2786 (let ((match (widget-group-match-inline widget values)))
2787 (and match (null (cdr match))))))
2789 (defun widget-group-match-inline (widget vals)
2790 ;; Match if the components match.
2796 answer (widget-match-inline argument vals))
2816 :match (lambda (widget value) t))
2893 (let ((name (match-string 1))
2894 (begin (match-beginning 1))
2895 (end (match-end 1)))
2924 (if (string-match "\n" doc)
2925 (let ((before (substring doc 0 (match-beginning 0)))
2926 (after (substring doc (match-beginning 0)))
3006 :match 'widget-regexp-match
3012 (defun widget-regexp-match (widget value)
3017 (string-match value ""))
3024 (string-match (widget-value widget) ""))
3073 (must-match (widget-get widget :must-match)))
3074 (read-file-name prompt2 dir nil must-match file)))))
3082 ;;; (must-match (widget-get widget :must-match))
3084 ;;; dir nil must-match file)))
3103 :match (lambda (widget value) (symbolp value))
3106 :prompt-match 'symbolp
3120 (widget-get widget :prompt-match)
3137 :prompt-match 'fboundp
3140 :match-alternatives '(functionp)
3154 :prompt-match 'boundp
3182 :prompt-match 'coding-system-p)
3222 ; :prompt-match 'fboundp ;; What was this good for? KFS
3225 :match-alternatives '(stringp vectorp)
3269 (if (widget-apply widget :match value)
3277 (if (string-match "\\`[[:space:]]*\\'" value)
3290 :match (lambda (widget value) t)
3301 (while (string-match "\n\\'" pp)
3303 (if (or (string-match "\n\\'" pp)
3320 (unless (widget-apply widget :match (read (current-buffer)))
3352 "A Lisp expression restricted to values that match.
3353 To use this type, you must define :match or :match-alternatives."
3355 :match 'widget-restricted-sexp-match
3357 (if (widget-apply widget :match value)
3361 (defun widget-restricted-sexp-match (widget value)
3362 (let ((alternatives (widget-get widget :match-alternatives))
3380 :match-alternatives '(integerp))
3387 :match-alternatives '(numberp))
3394 :match-alternatives '(floatp))
3412 :match (lambda (widget value)
3424 :match 'widget-vector-match
3428 (defun widget-vector-match (widget value)
3430 (widget-group-match widget
3437 :match 'widget-cons-match
3443 (defun widget-cons-match (widget value)
3445 (widget-group-match widget
3501 :match 'widget-type-match
3612 (if (widget-apply (car look) :match value)
3680 ;; Fixme: match
3700 (message "Exact match."))