[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 9276219103: org-export--get-subtree-options: Do not
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 9276219103: org-export--get-subtree-options: Do not jump to parent subtree |
Date: |
Sun, 27 Nov 2022 03:57:55 -0500 (EST) |
branch: externals/org
commit 9276219103f5d874baaf5d0030f190f427c3bfe9
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-export--get-subtree-options: Do not jump to parent subtree
* lisp/ox.el: Never jump to parent heading even when point is at an
existing heading.
* testing/lisp/test-ox.el (test-org-export/get-subtree-options): Fix
test assuming that current subtree may include parent.
Reported-by: Kaushal Modi <kaushal.modi@gmail.com>
Link:
https://orgmode.org/list/CAFyQvY3mxi4DRTS+W-AX7bFELVujqH4DODEYPy3hyGRRuMEPSw@mail.gmail.com
---
lisp/ox.el | 2 +-
testing/lisp/test-ox.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/ox.el b/lisp/ox.el
index 22df887593..5c0a8f2424 100644
--- a/lisp/ox.el
+++ b/lisp/ox.el
@@ -1435,7 +1435,7 @@ for export. Return options as a plist."
;; property is the keyword with "EXPORT_" appended to it.
(org-with-wide-buffer
;; Make sure point is at a heading.
- (if (org-at-heading-p) (org-up-heading-safe) (org-back-to-heading t))
+ (org-back-to-heading t)
(let ((plist
;; EXPORT_OPTIONS are parsed in a non-standard way. Take
;; care of them right from the start.
diff --git a/testing/lisp/test-ox.el b/testing/lisp/test-ox.el
index 134345521c..47f3f60750 100644
--- a/testing/lisp/test-ox.el
+++ b/testing/lisp/test-ox.el
@@ -391,7 +391,7 @@ Paragraph"
(plist-get (org-export-get-environment nil t) :date))))
;; Still grab correct options when section above is empty.
(should
- (equal '("H1")
+ (equal '("H12")
(org-test-with-temp-text "* H1\n** H11\n** H12<point>"
(plist-get (org-export-get-environment nil t) :title))))
;; More than one property can refer to the same node property.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/org 9276219103: org-export--get-subtree-options: Do not jump to parent subtree,
ELPA Syncer <=