Lines Matching refs:nlist
277 (nlist (car hlist))
279 (elist (ebnf-split-header-suffix nlist zlist)))
289 (let* ((nl (ebnf-extract-empty nlist))
301 (nnode (ebnf-map-list-to-optional nlist)))
303 (setq nlist (list nnode)))
304 (if (or (null nlist)
305 (and (= (length nlist) 1)
306 (eq (ebnf-node-kind (car nlist))
310 (list (or (ebnf-prefix-suffix nlist)
311 (ebnf-create-alternative nlist))
317 ((ebnf-prefix-suffix nlist)
328 (nlist (car hlist))
344 (cons nlist (nreverse zlist))))
348 (let (hlist nlist)
352 (setq nlist (cons (car node-list) nlist)))
354 (cons (nreverse nlist) (nreverse hlist))))
374 (defun ebnf-map-list-to-optional (nlist)
375 (and (= (length nlist) 2)
376 (let ((first (nth 0 nlist))
377 (second (nth 1 nlist)))
405 (defun ebnf-split-header-suffix (nlist zlist)
408 ((= (length nlist) 1)
410 (elt (car nlist)))
418 ((= (length nlist) (length zlist))
421 (setq ok (ebnf-split-header-suffix1 (car nlist) (car zlist))
422 nlist (cdr nlist)
635 (defun ebnf-unique-list (nlist)
636 (let ((current nlist)
649 (setq nlist (cdr nlist)))))
653 nlist))