Function: ebnf-apply-style1

ebnf-apply-style1 is a byte-compiled function defined in ebnf2ps.el.gz.

Signature

(ebnf-apply-style1 STYLE)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf2ps.el.gz
(defun ebnf-apply-style1 (style)
  (let ((value (cdr (assoc style ebnf-style-database))))
    (prog1
	value
      (and (car value) (ebnf-apply-style1 (car value)))
      (while (setq value (cdr value))
	(set (caar value) (eval (cdar value) t))))))