diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2023-07-30 16:52:11 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2023-07-30 16:52:11 -0400 |
| commit | 80c9f491fc8dc068421f32cd15e0b387a6d1ee11 (patch) | |
| tree | 016bb577c006768a47012d5fa4ca61d61eb5e0cf /lisp/org/ob-tangle.el | |
| parent | 735f3700f6510608415fd647dc28c0332c11d011 (diff) | |
| download | emacs-80c9f491fc8dc068421f32cd15e0b387a6d1ee11.tar.gz emacs-80c9f491fc8dc068421f32cd15e0b387a6d1ee11.tar.bz2 emacs-80c9f491fc8dc068421f32cd15e0b387a6d1ee11.zip | |
Update to Org 9.6.7-5-gd1d0c3
Diffstat (limited to 'lisp/org/ob-tangle.el')
| -rw-r--r-- | lisp/org/ob-tangle.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org/ob-tangle.el b/lisp/org/ob-tangle.el index 980d4a12054..0b816a7c13c 100644 --- a/lisp/org/ob-tangle.el +++ b/lisp/org/ob-tangle.el @@ -513,6 +513,7 @@ The PARAMS are the 3rd element of the info for the same src block." (cdr (assq :tangle params))))) bare)))))) +(defvar org-outline-regexp) ; defined in lisp/org.el (defun org-babel-tangle-single-block (block-counter &optional only-this-block) "Collect the tangled source for current block. Return the list of block attributes needed by @@ -570,8 +571,8 @@ 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 - (match-end 0)) + (org-back-to-heading t) + (re-search-forward org-outline-regexp)) (error (point-min))) (save-excursion (if (re-search-backward |