diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-23 11:03:09 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-08-23 11:03:09 +0200 |
| commit | f9e5600f826460f85fabbcbb8dca33e50af33475 (patch) | |
| tree | 82acfbf3d02ad25e7b93011dedc8f814a20b0118 | |
| parent | 6dedecf8062c753e6f575c5aca2922365c7d13cc (diff) | |
| download | org-mode-f9e5600f826460f85fabbcbb8dca33e50af33475.tar.gz | |
org-export: Fix reference to a free variable in macros
* contrib/lisp/org-export.el (org-export-define-backend,
org-export-define-derived-backend): Fix reference to a free variable
in macro.
| -rw-r--r-- | contrib/lisp/org-export.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/lisp/org-export.el b/contrib/lisp/org-export.el index 3ca7b5d..665c54f 100644 --- a/contrib/lisp/org-export.el +++ b/contrib/lisp/org-export.el @@ -812,7 +812,7 @@ As an example, here is how the `e-ascii' back-end is defined: :options-alist ((:ascii-charset nil nil org-e-ascii-charset)))" (declare (debug (&define name sexp [&rest [keywordp sexp]] defbody)) (indent 1)) - (let (filters options block-name) + (let (filters options export-block) (while (keywordp (car body)) (case (pop body) (:export-block (let ((names (pop body))) @@ -897,7 +897,7 @@ The back-end could then be called with, for example: \(org-export-to-buffer 'my-latex \"*Test my-latex*\")" (declare (debug (&define name sexp [&rest [keywordp sexp]] def-body)) (indent 2)) - (let (filters options translate) + (let (filters options translate export-block) (while (keywordp (car body)) (case (pop body) (:export-block (let ((names (pop body))) |