Function: ebnf-ebx-exception

ebnf-ebx-exception is a byte-compiled function defined in ebnf-ebx.el.gz.

Signature

(ebnf-ebx-exception TOKEN)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf-ebx.el.gz
;;; exception ::= term ('-' term)?


(defun ebnf-ebx-exception (token)
  (let ((term (ebnf-ebx-term token)))
    (if (eq (car term) 'exception)
	(let ((except (ebnf-ebx-term (ebnf-ebx-lex))))
	  (cons (car except)
		(ebnf-make-except (cdr term) (cdr except))))
      term)))