Function: rng-intern-choice

rng-intern-choice is a byte-compiled function defined in rng-match.el.gz.

Signature

(rng-intern-choice IPATTERNS)

Documentation

Return a choice ipattern for the list of choices in IPATTERNS.

May alter IPATTERNS.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-match.el.gz
;; Would be cleaner if this didn't modify IPATTERNS.

(defun rng-intern-choice (ipatterns)
  "Return a choice ipattern for the list of choices in IPATTERNS.
May alter IPATTERNS."
  (or (rng-intern-choice-shortcut ipatterns)
      (let* ((tem (rng-normalize-choice-list ipatterns))
	     (normalized (cdr tem)))
	(or (rng-intern-choice-shortcut normalized)
	    (rng-intern-choice1 normalized (car tem))))))