mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-21 13:31:37 -07:00
Code Issues Projects Releases Wiki Activity

(vc-rcs-annotate-command): Use forward-line rather than goto-line.

Browse source
This commit is contained in:
Glenn Morris 2009-09-04 02:49:07 +00:00
parent 63220e377a
commit f76a97563c
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-09-04 Glenn Morris <rgm@gnu.org>
* vc-rcs.el (vc-rcs-annotate-command): Use forward-line rather than
goto-line.
2009-09-03 Glenn Morris <rgm@gnu.org>
* arc-mode.el (archive-mode):

6
lisp/vc-rcs.el
View file

@ -686,7 +686,8 @@ Optional arg REVISION is a revision to annotate from."
;; property of this approach is ability to push instructions
;; onto `path' directly, w/o need to maintain rev boundaries.
(dolist (insn (cdr (assq :insn meta)))
(goto-line (pop insn))
(goto-char (point-min))
(forward-line (1- (pop insn)))
(setq p (point))
(case (pop insn)
(k (setq s (buffer-substring-no-properties
@ -718,7 +719,8 @@ Optional arg REVISION is a revision to annotate from."
(setq meta (cdr (assoc pre revisions))
prda nil)
(dolist (insn (cdr (assq :insn meta)))
(goto-line (pop insn))
(goto-char (point-min))
(forward-line (1- (pop insn)))
(case (pop insn)
(k (delete-region
(point) (progn (forward-line (car insn))