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

Fix last commit

This commit is contained in:
Nicolas Goaziou 2019-08-24 22:58:29 +02:00
parent ed048fa83d
commit 73c0989037
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

@ -500,7 +500,8 @@ by `org-babel-get-src-block-info'."
(let ((link-data (pcase (or info (org-babel-get-src-block-info 'light)) (let ((link-data (pcase (or info (org-babel-get-src-block-info 'light))
(`(,_ ,_ ,_ ,_ ,name ,start ,_) (`(,_ ,_ ,_ ,_ ,name ,start ,_)
`(("start-line" . ,(org-with-point-at start `(("start-line" . ,(org-with-point-at start
(line-beginning-position))) (number-to-string
(line-number-at-pos))))
("file" . ,(buffer-file-name)) ("file" . ,(buffer-file-name))
("link" . ,(org-no-properties (org-store-link nil))) ("link" . ,(org-no-properties (org-store-link nil)))
("source-name" . ,name)))))) ("source-name" . ,name))))))