Merge branch 'bugfix'
This commit is contained in:
commit
6c1e3dfa28
|
@ -638,7 +638,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))))
|
||||
|
|
Loading…
Reference in New Issue