summaryrefslogtreecommitdiff
path: root/lisp/org/ob-tangle.el
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2022-07-24 16:24:24 -0400
committerKyle Meyer <kyle@kyleam.com>2022-07-24 16:24:24 -0400
commitba70d0f77c52d471bceb2ad2cc7bc172db348abb (patch)
treea2a638dfaaf4cc61b590f1da7b5490dccbcbe03c /lisp/org/ob-tangle.el
parentf7fd7bf477acfc65701065ec70c32dacb17e275a (diff)
downloademacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.tar.gz
emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.tar.bz2
emacs-ba70d0f77c52d471bceb2ad2cc7bc172db348abb.zip
Update to Org 9.5.4-17-g6e991f
Diffstat (limited to 'lisp/org/ob-tangle.el')
-rw-r--r--lisp/org/ob-tangle.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/org/ob-tangle.el b/lisp/org/ob-tangle.el
index 566258eba4a..525d27bc070 100644
--- a/lisp/org/ob-tangle.el
+++ b/lisp/org/ob-tangle.el
@@ -581,7 +581,10 @@ which enable the original code blocks to be found."
(error "Not in tangled code"))
(setq body (buffer-substring body-start end)))
;; Go to the beginning of the relative block in Org file.
- (org-link-open-from-string link)
+ ;; Explicitly allow fuzzy search even if user customized
+ ;; otherwise.
+ (let (org-link-search-must-match-exact-headline)
+ (org-link-open-from-string link))
(setq target-buffer (current-buffer))
(if (string-match "[^ \t\n\r]:\\([[:digit:]]+\\)" block-name)
(let ((n (string-to-number (match-string 1 block-name))))