Function: widget-restricted-sexp-match

widget-restricted-sexp-match is a byte-compiled function defined in wid-edit.el.gz.

Signature

(widget-restricted-sexp-match WIDGET VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/wid-edit.el.gz
(defun widget-restricted-sexp-match (widget value)
  (let ((alternatives (widget-get widget :match-alternatives))
	matched)
    (while (and alternatives (not matched))
      (if (cond ((functionp (car alternatives))
		 (funcall (car alternatives) value))
		((and (consp (car alternatives))
		      (eq (car (car alternatives)) 'quote))
		 (eq value (nth 1 (car alternatives)))))
	  (setq matched t))
      (setq alternatives (cdr alternatives)))
    matched))