diff options
Diffstat (limited to 'lisp/ob-ebnf.el')
-rw-r--r-- | lisp/ob-ebnf.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/ob-ebnf.el b/lisp/ob-ebnf.el index 9a78f6a..36f2c38 100644 --- a/lisp/ob-ebnf.el +++ b/lisp/ob-ebnf.el @@ -1,4 +1,4 @@ -;;; ob-ebnf.el --- org-babel functions for ebnf evaluation +;;; ob-ebnf.el --- Babel Functions for EBNF -*- lexical-binding: t; -*- ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. @@ -54,13 +54,11 @@ "Execute a block of Ebnf code with org-babel. This function is called by `org-babel-execute-src-block'" (save-excursion - (let* ((dest-file (cdr (assoc :file params))) + (let* ((dest-file (cdr (assq :file params))) (dest-dir (file-name-directory dest-file)) (dest-root (file-name-sans-extension (file-name-nondirectory dest-file))) - (dest-ext (file-name-extension dest-file)) - (style (cdr (assoc :style params))) - (current-dir default-directory) + (style (cdr (assq :style params))) (result nil)) (with-temp-buffer (when style (ebnf-push-style style)) |