Browse Source

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...
Carsten Dominik 14 years ago
parent
commit
b7e3d7d90b
1 changed files with 1 additions and 0 deletions
  1. 1 0
      lisp/org-exp.el

+ 1 - 0
lisp/org-exp.el

@@ -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)