diff options
author | Jambunathan K <kjambunathan@gmail.com> | 2012-01-27 13:13:27 +0530 |
---|---|---|
committer | Jambunathan K <kjambunathan@gmail.com> | 2012-01-27 13:13:27 +0530 |
commit | 4beec074d053052695c14fb3efa9e3a6f7eb729e (patch) | |
tree | ed1c9d7a2e0ed3bc5581940b60fa90be42a3f97f | |
parent | 90beabb7ab797a4e340cb88e65aeb95396fa66cd (diff) | |
download | org-mode-4beec074d053052695c14fb3efa9e3a6f7eb729e.tar.gz |
org-odt.el: Fix earlier commit
-rw-r--r-- | lisp/org-odt.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-odt.el b/lisp/org-odt.el index c54a3db..822e62f 100644 --- a/lisp/org-odt.el +++ b/lisp/org-odt.el @@ -33,17 +33,17 @@ :tag "Org Export ODT" :group 'org-export) +(defvar org-lparse-dyn-first-heading-pos) ; let bound during org-do-lparse (defun org-odt-insert-toc () (goto-char (point-min)) (cond ((re-search-forward "\\(<text:p [^>]*>\\)?\\s-*\\[TABLE-OF-CONTENTS\\]\\s-*\\(</text:p>\\)?" nil t) - (goto-char (match-beginning 0)) (replace-match "")) (t - (goto-char org-lparse-dyn-first-heading-pos)) - (insert (org-odt-format-toc)))) + (goto-char org-lparse-dyn-first-heading-pos))) + (insert (org-odt-format-toc))) (defun org-odt-end-export () (org-odt-insert-toc) |