stopping using goto-line.
This commit is contained in:
parent
ba53968d28
commit
661f1a3813
@ -148,7 +148,8 @@
|
|||||||
(defun ghc-get-pos (buf line col)
|
(defun ghc-get-pos (buf line col)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(set-buffer buf)
|
(set-buffer buf)
|
||||||
(goto-line line)
|
(goto-char (point-min))
|
||||||
|
(forward-line (1- line))
|
||||||
(forward-char col)
|
(forward-char col)
|
||||||
(point)))
|
(point)))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user