Function: rng-ipattern-empty-before-p

rng-ipattern-empty-before-p is a byte-compiled function defined in rng-match.el.gz.

Signature

(rng-ipattern-empty-before-p IPATTERN)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-match.el.gz
(defun rng-ipattern-empty-before-p (ipattern)
  (let ((type (rng--ipattern-type ipattern)))
    (cond ((eq type 'after)
	   (eq (rng--ipattern-child ipattern) rng-empty-ipattern))
	  ((eq type 'choice)
	   (let ((members (rng--ipattern-child ipattern))
		 (ret t))
	     (while (and members ret)
	       (or (rng-ipattern-empty-before-p (car members))
		   (setq ret nil))
	       (setq members (cdr members)))
	     ret))
	  (t nil))))