From f56ca5009ef3c83ed2862b76660911f5f389d8c1 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sat, 24 Jun 2023 15:32:40 +0300 Subject: [PATCH] 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 e63bde89f..33260397a 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 6fbc471cd..9f861006a 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")