Browse Source

Fix LaTeX export of subtrees and inline tasks

Nicolas Goaziou 14 years ago
parent
commit
9be9f727f8
3 changed files with 4 additions and 3 deletions
  1. 1 1
      lisp/org-exp.el
  2. 1 1
      lisp/org-latex.el
  3. 2 1
      lisp/org.el

+ 1 - 1
lisp/org-exp.el

@@ -984,7 +984,7 @@ value of `org-export-run-in-background'."
 	  (set-process-sentinel p 'org-export-process-sentinel)
 	  (message "Background process \"%s\": started" p))
       ;; background processing not requested, or not possible
-      (if subtree-p (progn (outline-mark-subtree) (activate-mark)))
+      (if subtree-p (progn (org-mark-subtree) (activate-mark)))
       (call-interactively (nth 1 ass))
       (when (and bpos (get-buffer-window cbuf))
 	(let ((cw (selected-window)))

+ 1 - 1
lisp/org-latex.el

@@ -1325,7 +1325,7 @@ If END is non-nil, it is the end of the region."
   (save-excursion
     (goto-char (or beg (point-min)))
     (let* ((pt (point))
-	   (end (if (re-search-forward "^\\*+ " end t)
+	   (end (if (re-search-forward (org-get-limited-outline-regexp) end t)
 		    (goto-char (match-beginning 0))
 		  (goto-char (or end (point-max))))))
       (prog1

+ 2 - 1
lisp/org.el

@@ -18593,7 +18593,8 @@ If point is in an inline task, mark that task instead."
     (cond
      (inline-task-p (org-inlinetask-goto-beginning))
      ((org-at-heading-p) (beginning-of-line))
-     (t (outline-previous-visible-heading 1)))
+     (t (let ((outline-regexp (org-get-limited-outline-regexp)))
+	  (outline-previous-visible-heading 1))))
     (setq beg (point))
     ;; Get end of it
     (if	inline-task-p