Make exporting the enclosing entry with CLASS/TITLE property work better

* lisp/org-exp.el (org-export): Go to next heading before searching
backward, so make this also work if we are on the headline of the
entry with the property...
This commit is contained in:
Carsten Dominik 2011-04-21 17:55:18 +02:00
parent 2985816e25
commit b7e3d7d90b
1 changed files with 1 additions and 0 deletions

View File

@ -995,6 +995,7 @@ Pressing `1' will switch between these two options."
(message "Export subtree: "))))
(when (eq r1 ?\ )
(let ((case-fold-search t))
(outline-next-heading)
(if (re-search-backward
"^[ \t]+\\(:latex_class:\\|:export_title:\\)[ \t]+\\S-"
nil t)