mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

org-odt.el: Fix a bug wrt label references

Browse Source 
* contrib/lisp/org-odt.el (org-odt-fixup-label-references)
(org-export-odt-preprocess-label-references): Modified.

Workaround for issue reported here:
http://lists.gnu.org/archive/html/emacs-orgmode/2011-11/msg00773.html
This commit is contained in:
Jambunathan K 2011-11-23 06:01:33 +05:30
parent 25a0a02121
commit e10722c9cd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/lisp/org-odt.el
View File

@ -1825,7 +1825,8 @@ CATEGORY-HANDLE is used. See
(defun org-odt-fixup-label-references ()
(goto-char (point-min))
(while (re-search-forward
"<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\"/>" nil t)
"<text:sequence-ref text:ref-name=\"\\([^\"]+\\)\">[ \t\n]*</text:sequence-ref>"
nil t)
(let* ((label (match-string 1))
(label-def (assoc label org-odt-entity-labels-alist))
(rpl (and label-def
@ -2278,8 +2279,9 @@ Do this when translation to MathML fails."
;; time we would have seen and collected all the label
;; definitions in `org-odt-entity-labels-alist'.
(org-odt-format-tags
"<text:sequence-ref text:ref-name=\"%s\"/>" ""
(org-add-props label '(org-protected t)))) t t)))))
'("<text:sequence-ref text:ref-name=\"%s\">" .
"</text:sequence-ref>")
"" (org-add-props label '(org-protected t)))) t t)))))
;; process latex fragments as part of
;; `org-export-preprocess-after-blockquote-hook'. Note that this hook