[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals-release/org f56ca5009e 1/4: fixup! org-babel-tangle-sin
From: |
ELPA Syncer |
Subject: |
[elpa] externals-release/org f56ca5009e 1/4: fixup! org-babel-tangle-single-block: Do not rely on match-data from `org-back-to-heading' |
Date: |
Sat, 24 Jun 2023 09:58:31 -0400 (EDT) |
branch: externals-release/org
commit f56ca5009ef3c83ed2862b76660911f5f389d8c1
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
fixup! org-babel-tangle-single-block: Do not rely on match-data from
`org-back-to-heading'
---
lisp/ob-tangle.el | 2 +-
testing/lisp/test-ob-tangle.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index e63bde89f9..33260397a3 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -570,7 +570,7 @@ non-nil, return the full association list to be used by
(buffer-substring
(max (condition-case nil
(save-excursion
- (org-back-to-heading t) ; Sets match data
+ (org-back-to-heading t)
(re-search-forward org-outline-regexp))
(error (point-min)))
(save-excursion
diff --git a/testing/lisp/test-ob-tangle.el b/testing/lisp/test-ob-tangle.el
index 6fbc471cd8..9f861006a6 100644
--- a/testing/lisp/test-ob-tangle.el
+++ b/testing/lisp/test-ob-tangle.el
@@ -100,7 +100,7 @@ echo 1
(delete-file "test-ob-tangle.sh"))))))
(ert-deftest ob-tangle/comment-org ()
- "Test :commends org."
+ "Test :comments org."
(should
(string-match
(regexp-quote ";; Function heading")