Function: ebnf-split-header-prefix1

ebnf-split-header-prefix1 is a byte-compiled function defined in ebnf-otz.el.gz.

Signature

(ebnf-split-header-prefix1 NODE-LIST HEADER)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-otz.el.gz
(defun ebnf-split-header-prefix1 (node-list header)
  (let (hlist nlist)
    (while node-list
      (if (ebnf-node-equal-header (car node-list) header)
	  (setq hlist (cons (car node-list) hlist))
	(setq nlist (cons (car node-list) nlist)))
      (setq node-list (cdr node-list)))
    (cons (nreverse nlist) (nreverse hlist))))