Parcourir la source

Fix last commit

Nicolas Goaziou il y a 5 ans
Parent
commit
73c0989037
1 fichiers modifiés avec 2 ajouts et 1 suppressions
  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))))))