Mercurial > emacs
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))) |