From a20eebd73f0c44dfa133ff66de1b2507e9bb0bd9 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Thu, 21 Apr 2011 18:03:05 +0200
Subject: [PATCH] Another fix for exporting enclosing class/title piece in
 buffer

* lisp/org-exp.el (org-export): Define a bound for finding enclosing
tree with class/title definition.
---
 lisp/org-exp.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 75051e50c..606cbb05e 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -994,11 +994,12 @@ Pressing `1' will switch between these two options."
 		 (setq subtree-p t)
 		 (message "Export subtree: "))))
 	(when (eq r1 ?\ )
-	  (let ((case-fold-search t))
+	  (let ((case-fold-search t)
+		(end (save-excursion (while (org-up-heading-safe)) (point))))
 	    (outline-next-heading)
 	    (if (re-search-backward
 		 "^[ \t]+\\(:latex_class:\\|:export_title:\\)[ \t]+\\S-"
-		 nil t)
+		 end t)
 		(progn
 		  (org-back-to-heading t)
 		  (setq subtree-p t)