Function: rng-c-lookup-create

rng-c-lookup-create is a byte-compiled function defined in rng-cmpct.el.gz.

Signature

(rng-c-lookup-create NAME GRAMMAR)

Documentation

Return a def object for NAME.

A def object is a pair (ABOUT . REF) where REF is returned by rng-make-ref. ABOUT is a two-element vector [OVERRIDE COMBINE]. COMBINE is either nil, choice or interleave. OVERRIDE is either nil, require or t.

Source Code

;; Defined in /usr/src/emacs/lisp/nxml/rng-cmpct.el.gz
(defun rng-c-lookup-create (name grammar)
  "Return a def object for NAME.
A def object is a pair \(ABOUT . REF) where REF is returned by
`rng-make-ref'.
ABOUT is a two-element vector [OVERRIDE COMBINE].
COMBINE is either nil, choice or interleave.
OVERRIDE is either nil, require or t."
  (let ((def (gethash name grammar)))
    (if def
	def
      (progn
	(setq def (cons (vector nil nil) (rng-make-ref name)))
	(puthash name def grammar)
	def))))