tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-list: Fix small bug

Browse source 
* lisp/org-list.el (org-list-to-generic): Fix lexical binding mistake.
This commit is contained in:
Nicolas Goaziou 2015-11-02 22:09:05 +01:00
parent a274c21419
commit 9b5757cb47
1 changed files with 87 additions and 90 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/org-list.el
View file

@ -3150,7 +3150,7 @@ item, and depth of the current sub-list, starting at 0.
Obviously, `counter' is only available for parameters applying to
items."
(interactive)
(let* ((p params)
(letrec ((p params)
(splicep (plist-get p :splice))
(ostart (plist-get p :ostart))
(oend (plist-get p :oend))
@ -3172,9 +3172,7 @@ items."
(cboff (plist-get p :cboff))
(cbtrans (plist-get p :cbtrans))
(nobr (plist-get p :nobr))
export-sublist ; for byte-compiler
(export-item
(function
;; Export an item ITEM of type TYPE, at DEPTH. First
;; string in item is treated in a special way as it can
;; bring extra information that needs to be processed.
@ -3222,11 +3220,10 @@ items."
(mapconcat (lambda (e)
(if (stringp e) e
(funcall export-sublist e (1+ depth))))
item (or (eval csep) "")))))))
item (or (eval csep) ""))))))
(export-sublist
(function
;; Export sublist SUB at DEPTH.
(lambda (sub depth)
;; Export sublist SUB at DEPTH.
(let* ((type (car sub))
(items (cdr sub))
(fmt (concat (cond
@ -3239,7 +3236,7 @@ items."
(eval lsep))))
(format fmt (mapconcat (lambda (e)
(funcall export-item e type depth))
items (or (eval isep) ""))))))))
items (or (eval isep) "")))))))
(concat (funcall export-sublist list 0) "\n")))
(defun org-list-to-latex (list &optional _params)