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

org-footnote: fix some comment strings

This commit is contained in:
Nicolas Goaziou 2011-07-16 10:45:40 +02:00
parent 6d9e90454f
commit 4ae030e027
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org-footnote.el
View File

@ -579,14 +579,14 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
ins-point ref) ins-point ref)
(save-excursion (save-excursion
;; 1. Find every footnote reference, extract the definition, and ;; 1. Find every footnote reference, extract the definition, and
;; collect that data in REF-TABLE. If SORT-ONLY is nil, also ;; collect that data in REF-TABLE. If SORT-ONLY is nil, also
;; normalize references. ;; normalize references.
(goto-char (point-min)) (goto-char (point-min))
(while (setq ref (org-footnote-get-next-reference)) (while (setq ref (org-footnote-get-next-reference))
(let* ((lbl (car ref)) (let* ((lbl (car ref))
;; When footnote isn't anonymous, check if it's label ;; When footnote isn't anonymous, check if it's label
;; (REF) is already stored in REF-TABLE. In that case, ;; (REF) is already stored in REF-TABLE. In that case,
;; extract number used to identify it (MARKER). If ;; extract number used to identify it (MARKER). If
;; footnote is unknown, increment the global counter ;; footnote is unknown, increment the global counter
;; (COUNT) to create an unused identifier. ;; (COUNT) to create an unused identifier.
(a (and lbl (assoc lbl ref-table))) (a (and lbl (assoc lbl ref-table)))
@ -594,8 +594,8 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
;; Is the reference inline or pointing to an inline ;; Is the reference inline or pointing to an inline
;; footnote? ;; footnote?
(inlinep (or (stringp (nth 3 ref)) (nth 3 a)))) (inlinep (or (stringp (nth 3 ref)) (nth 3 a))))
;; Replace footnote reference with [MARKER]. Maybe fill ;; Replace footnote reference with [MARKER]. Maybe fill
;; paragraph once done. If SORT-ONLY is non-nil, only move ;; paragraph once done. If SORT-ONLY is non-nil, only move
;; to the end of reference found to avoid matching it twice. ;; to the end of reference found to avoid matching it twice.
;; If EXPORT-PROPS isn't nil, also add `org-footnote' ;; If EXPORT-PROPS isn't nil, also add `org-footnote'
;; property to it, so it can be easily recognized by ;; property to it, so it can be easily recognized by
@ -717,9 +717,9 @@ Additional note on `org-footnote-insert-pos-for-preprocessor':
(when export-props (when export-props
(setq org-export-footnotes-seen ref-table))) (setq org-export-footnotes-seen ref-table)))
;; Else, insert each definition at the end of the section ;; Else, insert each definition at the end of the section
;; containing their first reference. Happens only in Org ;; containing their first reference. Happens only in Org files
;; files with no special footnote section, and only when ;; with no special footnote section, and only when doing
;; doing sorting. ;; sorting.
(t (mapc 'org-insert-footnote-reference-near-definition (t (mapc 'org-insert-footnote-reference-near-definition
ref-table)))))) ref-table))))))