diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-12-12 22:46:24 -0500 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-12-12 22:46:24 -0500 |
commit | f57778090e7545142c4c997cf78149f5a0a4796d (patch) | |
tree | 5175c0da07933c32f7baea1559eed406e55aeab5 | |
parent | d1796108f6510f3e2ca1acf1664f971f0367cb83 (diff) | |
download | org-mode-f57778090e7545142c4c997cf78149f5a0a4796d.tar.gz |
Update for change in letrec behavior
* lisp/ox-latex.el (org-latex--delayed-footnotes-definitions):
* lisp/ox.el (org-export--selected-trees):
(org-export--prune-tree):
(org-export--merge-external-footnote-definitions):
(org-export--footnote-reference-map): Provide nil value for binders.
Using
(letrec ((SYMBOL)) ...)
to bind SYMBOL to nil relies on (setq SYMBOL) setting SYMBOL to nil. As
of 5d93a89 (Byte compiler: on setq with an odd number of arguments,
generate a `signal', 2015-11-26) in the Emacs repo, setq signals an
error when given an odd number of arguments.
Reported-by: Zack Piper <zack@apertron.net>
<http://permalink.gmane.org/gmane.emacs.orgmode/103539>
<http://permalink.gmane.org/gmane.emacs.devel/196182>
-rw-r--r-- | lisp/ox-latex.el | 2 | ||||
-rw-r--r-- | lisp/ox.el | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el index 407df6b..67c8cc5 100644 --- a/lisp/ox-latex.el +++ b/lisp/ox-latex.el @@ -1514,7 +1514,7 @@ just outside of it." (org-export-data (org-export-get-footnote-definition ref info) info)))) ;; Find every footnote reference in ELEMENT. - (letrec ((all-refs) + (letrec ((all-refs nil) (search-refs (lambda (data) ;; Return a list of all footnote references never seen @@ -1779,7 +1779,7 @@ INFO is a plist holding export options." ;; If FILETAGS contains a select tag, every headline or ;; inlinetask is returned. (org-element-map data '(headline inlinetask) #'identity) - (letrec ((selected-trees) + (letrec ((selected-trees nil) (walk-data (lambda (data genealogy) (let ((type (org-element-type data))) @@ -2715,7 +2715,7 @@ DATA is the parse tree to traverse. INFO is the plist holding export info. Also set `:ignore-list' in INFO to a list of objects which should be ignored during export, but not removed from tree." - (letrec ((ignore) + (letrec ((ignore nil) ;; First find trees containing a select tag, if any. (selected (org-export--selected-trees data info)) (walk-data @@ -2939,7 +2939,7 @@ not, are considered." ;; Otherwise add each definition at the end of the section where ;; it is first referenced. (t - (letrec ((seen) + (letrec ((seen nil) (insert-definitions (lambda (data) ;; Insert definitions in the same section as @@ -3760,8 +3760,8 @@ INFO is a plist containing export state. By default, as soon as a new footnote reference is encountered, FUNCTION is called onto its definition. However, if BODY-FIRST is non-nil, this step is delayed until the end of the process." - (letrec ((definitions) - (seen-refs) + (letrec ((definitions nil) + (seen-refs nil) (search-ref (lambda (data delayp) ;; Search footnote references through DATA, filling |