stopping using goto-line.

2014-03-14 14:13:52 +09:00 · 2014-03-14 14:13:52 +09:00 · 661f1a3813
parent ba53968d28
commit 661f1a3813
1 changed files with 2 additions and 1 deletions
--- a/elisp/ghc-info.el
+++ b/elisp/ghc-info.el
@ -148,7 +148,8 @@
 (defun ghc-get-pos (buf line col)
  (save-excursion
    (set-buffer buf)
-    (goto-line line)
+    (goto-char (point-min))
+    (forward-line (1- line))
    (forward-char col)
    (point)))