Mercurial > emacs
comparison lisp/vc-rcs.el @ 104837:6c2939592100
(vc-rcs-annotate-command): Use forward-line rather than goto-line.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 04 Sep 2009 02:49:07 +0000 |
parents | adeed914a5fb |
children | b3c2589ed19e |
comparison
equal
deleted
inserted
replaced
104836:629a32caa79e | 104837:6c2939592100 |
---|---|
684 ;; buffer positions of edits occurring towards the beginning of | 684 ;; buffer positions of edits occurring towards the beginning of |
685 ;; the buffer. In this way we avoid using markers. A pleasant | 685 ;; the buffer. In this way we avoid using markers. A pleasant |
686 ;; property of this approach is ability to push instructions | 686 ;; property of this approach is ability to push instructions |
687 ;; onto `path' directly, w/o need to maintain rev boundaries. | 687 ;; onto `path' directly, w/o need to maintain rev boundaries. |
688 (dolist (insn (cdr (assq :insn meta))) | 688 (dolist (insn (cdr (assq :insn meta))) |
689 (goto-line (pop insn)) | 689 (goto-char (point-min)) |
690 (forward-line (1- (pop insn))) | |
690 (setq p (point)) | 691 (setq p (point)) |
691 (case (pop insn) | 692 (case (pop insn) |
692 (k (setq s (buffer-substring-no-properties | 693 (k (setq s (buffer-substring-no-properties |
693 p (progn (forward-line (car insn)) | 694 p (progn (forward-line (car insn)) |
694 (point)))) | 695 (point)))) |
716 (setq pre (cdr (pop nbls))) | 717 (setq pre (cdr (pop nbls))) |
717 (while (progn | 718 (while (progn |
718 (setq meta (cdr (assoc pre revisions)) | 719 (setq meta (cdr (assoc pre revisions)) |
719 prda nil) | 720 prda nil) |
720 (dolist (insn (cdr (assq :insn meta))) | 721 (dolist (insn (cdr (assq :insn meta))) |
721 (goto-line (pop insn)) | 722 (goto-char (point-min)) |
723 (forward-line (1- (pop insn))) | |
722 (case (pop insn) | 724 (case (pop insn) |
723 (k (delete-region | 725 (k (delete-region |
724 (point) (progn (forward-line (car insn)) | 726 (point) (progn (forward-line (car insn)) |
725 (point)))) | 727 (point)))) |
726 (i (insert (propertize | 728 (i (insert (propertize |