summaryrefslogtreecommitdiff
path: root/lisp/progmodes/ebnf2ps.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2021-03-23 22:38:41 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2021-03-23 22:38:41 -0400
commit952550258dcf06bc03662974aa6b6db9d792aedb (patch)
tree0f7eec9ac7e1d5ef74fa2b146278bf6ff669a9f5 /lisp/progmodes/ebnf2ps.el
parent667e002e91a26c20089c5843254a39b771b64ab7 (diff)
downloademacs-952550258dcf06bc03662974aa6b6db9d792aedb.tar.gz
* lisp/progmodes/ebnf-*.el: Use lexical-binding
* lisp/progmodes/ebnf-abn.el: * lisp/progmodes/ebnf-bnf.el: * lisp/progmodes/ebnf-dtd.el: * lisp/progmodes/ebnf-ebx.el: * lisp/progmodes/ebnf-iso.el: * lisp/progmodes/ebnf-otz.el: * lisp/progmodes/ebnf-yac.el: Enable lexical-binding. * lisp/progmodes/ebnf2ps.el (ebnf-apply-style1) (ebnf-insert-ebnf-prologue): Use lexical-binding.
Diffstat (limited to 'lisp/progmodes/ebnf2ps.el')
-rw-r--r--lisp/progmodes/ebnf2ps.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index b376423c185..c95b351d0c7 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -2920,7 +2920,7 @@ See `ebnf-style-database' documentation."
value
(and (car value) (ebnf-apply-style1 (car value)))
(while (setq value (cdr value))
- (set (caar value) (eval (cdar value)))))))
+ (set (caar value) (eval (cdar value) t))))))
(defun ebnf-check-style-values (values)
@@ -5487,7 +5487,7 @@ killed after process termination."
(ebnf-shape-value ebnf-chart-shape
ebnf-terminal-shape-alist))
(format "/UserArrow{%s}def\n"
- (let ((arrow (eval ebnf-user-arrow)))
+ (let ((arrow (eval ebnf-user-arrow t)))
(if (stringp arrow)
arrow
"")))
@@ -6290,7 +6290,7 @@ killed after process termination."
(defun ebnf-log-header (format-str &rest args)
(when ebnf-log
(apply
- 'ebnf-log
+ #'ebnf-log
(concat
"\n\n===============================================================\n\n"
format-str)