diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-11-06 13:24:27 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2010-12-06 19:13:09 +0100 |
commit | 9be9f727f8d744c144151e22d2816b6d88d85b67 (patch) | |
tree | fb1e411e489a79c334f1a41bf9e6c08f3ac02883 | |
parent | 5ecd79ea74964b12562b7428b13ae10aef373bbb (diff) | |
download | org-mode-9be9f727f8d744c144151e22d2816b6d88d85b67.tar.gz |
Fix LaTeX export of subtrees and inline tasks
-rw-r--r-- | lisp/org-exp.el | 2 | ||||
-rw-r--r-- | lisp/org-latex.el | 2 | ||||
-rw-r--r-- | lisp/org.el | 3 |
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 |