comparison lisp/term.el @ 104543:da8b3e61b182

Use forward-line rather than goto-line.
author Glenn Morris <rgm@gnu.org>
date Sat, 22 Aug 2009 19:29:18 +0000
parents 62681dd69ecb
children 1d903e2f65af
comparison
equal deleted inserted replaced
104542:5986db97372e 104543:da8b3e61b182
3463 (pos)) 3463 (pos))
3464 (save-excursion 3464 (save-excursion
3465 (set-buffer buffer) 3465 (set-buffer buffer)
3466 (save-restriction 3466 (save-restriction
3467 (widen) 3467 (widen)
3468 (goto-line line) 3468 (goto-char (point-min))
3469 (forward-line (1- line))
3469 (setq pos (point)) 3470 (setq pos (point))
3470 (setq overlay-arrow-string "=>") 3471 (setq overlay-arrow-string "=>")
3471 (or overlay-arrow-position 3472 (or overlay-arrow-position
3472 (setq overlay-arrow-position (make-marker))) 3473 (setq overlay-arrow-position (make-marker)))
3473 (set-marker overlay-arrow-position (point) (current-buffer))) 3474 (set-marker overlay-arrow-position (point) (current-buffer)))