stopping using goto-line.

This commit is contained in:
Kazu Yamamoto 2014-03-14 14:13:52 +09:00
parent ba53968d28
commit 661f1a3813

View File

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