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