Explorar o código

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 %!s(int64=14) %!d(string=hai) anos
pai
achega
b7e3d7d90b
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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)