Function: ebnf-abn-concatenation

ebnf-abn-concatenation is a byte-compiled function defined in ebnf-abn.el.gz.

Signature

(ebnf-abn-concatenation TOKEN)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-abn.el.gz
;;;    concatenation  =  repetition *(1*c-wsp repetition)


(defun ebnf-abn-concatenation (token)
  (let ((term (ebnf-abn-repetition token))
	seq)
    (or (setq token (car term)
	      term  (cdr term))
	(error "Empty element"))
    (setq seq (cons term seq))
    (while (setq term  (ebnf-abn-repetition token)
		 token (car term)
		 term  (cdr term))
      (setq seq (cons term seq)))
    (cons token
	  (ebnf-token-sequence seq))))