mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 03:32:53 +00:00
Footnotes: Fix bug with sorting inline footnotes.
This commit is contained in:
parent
37755e90ae
commit
961a3e6298
|
@ -1,5 +1,8 @@
|
||||||
2009-03-30 Carsten Dominik <carsten.dominik@gmail.com>
|
2009-03-30 Carsten Dominik <carsten.dominik@gmail.com>
|
||||||
|
|
||||||
|
* org-footnote.el (org-footnote-normalize): When only dorting, do
|
||||||
|
not insert inline notes at the end.
|
||||||
|
|
||||||
* org-docbook.el (org-id-find-id-file): Add function declaration.
|
* org-docbook.el (org-id-find-id-file): Add function declaration.
|
||||||
|
|
||||||
* org.el (org-require-autoloaded-modules): Add org-docbook.el.
|
* org.el (org-require-autoloaded-modules): Add org-docbook.el.
|
||||||
|
|
|
@ -362,7 +362,7 @@ referenced sequence."
|
||||||
(and idef
|
(and idef
|
||||||
org-footnote-fill-after-inline-note-extraction
|
org-footnote-fill-after-inline-note-extraction
|
||||||
(fill-paragraph)))
|
(fill-paragraph)))
|
||||||
(if (not a) (push (list ref marker def) ref-table))))
|
(if (not a) (push (list ref marker def (if idef t nil)) ref-table))))
|
||||||
|
|
||||||
;; First find and remove the footnote section
|
;; First find and remove the footnote section
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
|
@ -402,11 +402,12 @@ referenced sequence."
|
||||||
(goto-char (or ins-point (point-max)))
|
(goto-char (or ins-point (point-max)))
|
||||||
(setq ref-table (reverse ref-table))
|
(setq ref-table (reverse ref-table))
|
||||||
(when sort-only
|
(when sort-only
|
||||||
;; remove anonymous fotnotes from the list
|
;; remove anonymous and inline footnotes from the list
|
||||||
(setq ref-table
|
(setq ref-table
|
||||||
(delq nil (mapcar
|
(delq nil (mapcar
|
||||||
(lambda (x) (and (car x)
|
(lambda (x) (and (car x)
|
||||||
(not (equal (car x) "fn:"))
|
(not (equal (car x) "fn:"))
|
||||||
|
(not (nth 3 x))
|
||||||
x))
|
x))
|
||||||
ref-table))))
|
ref-table))))
|
||||||
;; Make sure each footnote has a description, or an error message.
|
;; Make sure each footnote has a description, or an error message.
|
||||||
|
|
Loading…
Reference in a new issue