mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 15:02:52 +00:00
Code Releases Activity

org-export: Fix code comments

Browse source
This commit is contained in:
Nicolas Goaziou 2012-08-20 10:25:05 +02:00
parent ec9e7ab9c1
commit fc6b9f1d88
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
contrib/lisp/org-export.el
View file

@ -3012,7 +3012,7 @@ FOOTNOTE is either a footnote reference or a footnote definition.
INFO is the plist used as a communication channel." INFO is the plist used as a communication channel."
(let* ((label (org-element-property :label footnote)) (let* ((label (org-element-property :label footnote))
seen-refs seen-refs
search-ref ; for byte-compiler. search-ref ; For byte-compiler.
(search-ref (search-ref
(function (function
(lambda (data) (lambda (data)
@ -3035,11 +3035,11 @@ INFO is the plist used as a communication channel."
((not fn-lbl) (push 'inline seen-refs) nil) ((not fn-lbl) (push 'inline seen-refs) nil)
;; Label not seen so far: add it so SEEN-REFS. ;; Label not seen so far: add it so SEEN-REFS.
;; ;;
;; Also search for subsequent references in footnote ;; Also search for subsequent references in
;; definition so numbering following reading logic. ;; footnote definition so numbering follows reading
;; Note that we don't have to care about inline ;; logic. Note that we don't have to care about
;; definitions, since `org-element-map' already ;; inline definitions, since `org-element-map'
;; traverse them at the right time. ;; already traverses them at the right time.
;; ;;
;; Once again, return nil to stay in the loop. ;; Once again, return nil to stay in the loop.
((not (member fn-lbl seen-refs)) ((not (member fn-lbl seen-refs))