瀏覽代碼

Fix last commit

Nicolas Goaziou 5 年之前
父節點
當前提交
73c0989037
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/ob-tangle.el

+ 2 - 1
lisp/ob-tangle.el

@@ -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))))))