tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob-tangle: Fix jump from tangle to org 

* lisp/ob-tangle.el (org-babel-tangle-jump-to-org): Fix the jump from a
  tangled part to the respective org in the case when an org-id defines
  the linking.

  The recent (buggy) behavior was to find the file which has the org-id as
  filename.
This commit is contained in:
Marco Wahl 2016-09-28 14:07:56 +02:00
parent 9a7297a281
commit ece6e39dfc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ob-tangle.el
View File

@ -48,6 +48,7 @@
(declare-function org-string-nw-p "org-macs" (s))
(declare-function org-trim "org" (s &optional keep-lead))
(declare-function outline-previous-heading "outline" ())
(declare-function org-id-find "org-id" (id &optional markerp))
(defvar org-link-types-re)
@ -575,7 +576,7 @@ which enable the original code blocks to be found."
(setq body (buffer-substring body-start end)))
(when (string-match "::" path)
(setq path (substring path 0 (match-beginning 0))))
(find-file path)
(find-file (or (car (org-id-find path)) path))
(setq target-buffer (current-buffer))
;; Go to the beginning of the relative block in Org file.
(org-open-link-from-string link)