summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2010-11-06 13:24:27 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2010-12-06 19:13:09 +0100
commit9be9f727f8d744c144151e22d2816b6d88d85b67 (patch)
treefb1e411e489a79c334f1a41bf9e6c08f3ac02883
parent5ecd79ea74964b12562b7428b13ae10aef373bbb (diff)
downloadorg-mode-9be9f727f8d744c144151e22d2816b6d88d85b67.tar.gz
Fix LaTeX export of subtrees and inline tasks
-rw-r--r--lisp/org-exp.el2
-rw-r--r--lisp/org-latex.el2
-rw-r--r--lisp/org.el3
3 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 08c0ac6..2aadacc 100644
--- a/lisp/org-exp.el
+++ b/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)))
diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 9c75012..966c3b7 100644
--- a/lisp/org-latex.el
+++ b/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
diff --git a/lisp/org.el b/lisp/org.el
index eaf8c4e..380f1f8 100644
--- a/lisp/org.el
+++ b/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