Forráskód Böngészése

org-git-link.el: Silence byte-compiler

* contrib/lisp/org-git-link.el (org-git-open): Replace obsolete
string-to-int with string-to-number.  Don't use goto-line
non-interactively.
Kyle Meyer 7 éve
szülő
commit
ddf0063ce7
1 módosított fájl, 5 hozzáadás és 1 törlés
  1. 5 1
      contrib/lisp/org-git-link.el

+ 5 - 1
contrib/lisp/org-git-link.el

@@ -103,7 +103,11 @@
          (gitdir (nth 0 dirlist))
          (relpath (nth 1 dirlist)))
     (org-git-open-file-internal gitdir (concat commit ":" relpath))
-    (when line (goto-line (string-to-int line)))))
+    (when line
+      (save-restriction
+	(widen)
+	(goto-char (point-min))
+	(forward-line (1- (string-to-number line)))))))
 
 
 ;; Utility functions (file names etc)