Function: rng-apply-after

rng-apply-after is a byte-compiled function defined in rng-match.el.gz.

Signature

(rng-apply-after F IPATTERN)

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-match.el.gz
(defun rng-apply-after (f ipattern)
  (let ((type (rng--ipattern-type ipattern)))
    (cond ((eq type 'after)
	   (rng-intern-after
	    (rng--ipattern-child ipattern)
	    (funcall f (rng--ipattern-after ipattern))))
	  ((eq type 'choice)
	   (rng-transform-choice (lambda (x) (rng-apply-after f x))
				 ipattern))
	  (t rng-not-allowed-ipattern))))