Function: rng-compute-end-tag-deriv

rng-compute-end-tag-deriv is a byte-compiled function defined in rng-match.el.gz.

Signature

(rng-compute-end-tag-deriv IPATTERN)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-match.el.gz
(defun rng-compute-end-tag-deriv (ipattern)
  (let ((type (rng--ipattern-type ipattern)))
    (cond ((eq type 'choice)
	   (rng-intern-choice
	    (mapcar 'rng-end-tag-deriv
		    (rng--ipattern-child ipattern))))
	  ((eq type 'after)
	   (if (rng--ipattern-nullable
		(rng--ipattern-child ipattern))
	       (rng--ipattern-after ipattern)
	     rng-not-allowed-ipattern))
	  (t rng-not-allowed-ipattern))))