mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 20:46:27 +00:00
Code Releases Activity

Footnotes: Fix bug with sorting inline footnotes.

Browse source
This commit is contained in:
Carsten Dominik 2009-03-30 11:25:03 +02:00
parent 37755e90ae
commit 961a3e6298
2 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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.el (org-require-autoloaded-modules): Add org-docbook.el.

5
lisp/org-footnote.el
View file

@ -362,7 +362,7 @@ referenced sequence."
(and idef
org-footnote-fill-after-inline-note-extraction
(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
(goto-char (point-min))
@ -402,11 +402,12 @@ referenced sequence."
(goto-char (or ins-point (point-max)))
(setq ref-table (reverse ref-table))
(when sort-only
;; remove anonymous fotnotes from the list
;; remove anonymous and inline footnotes from the list
(setq ref-table
(delq nil (mapcar
(lambda (x) (and (car x)
(not (equal (car x) "fn:"))
(not (nth 3 x))
x))
ref-table))))
;; Make sure each footnote has a description, or an error message.