Mercurial > emacs
changeset 53679:7a2e7bea75b0
(vc-current-line): Function removed. This is now done by the new
function line-at-pos in simple.el.
(vc-annotate-warp-version): Use line-at-pos instead of
vc-current-line.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Thu, 22 Jan 2004 23:34:33 +0000 |
| parents | 39002dae1bb3 |
| children | 6b1881ea9daf |
| files | lisp/vc.el |
| diffstat | 1 files changed, 3 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Thu Jan 22 20:42:52 2004 +0000 +++ b/lisp/vc.el Thu Jan 22 23:34:33 2004 +0000 @@ -7,7 +7,7 @@ ;; Maintainer: Andre Spiegel <spiegel@gnu.org> ;; Keywords: tools -;; $Id: vc.el,v 1.362 2004/01/20 17:39:09 uid65624 Exp $ +;; $Id: vc.el,v 1.363 2004/01/21 11:05:51 uid65624 Exp $ ;; This file is part of GNU Emacs. @@ -3135,19 +3135,6 @@ (vc-version-diff vc-annotate-parent-file prev-rev rev-at-line)) (switch-to-buffer "*vc-diff*")))))) -(defun vc-current-line () - "Return the current buffer's line number." - (let ((oldpoint (point)) start) - (save-excursion - (save-restriction - (goto-char (point-min)) - (widen) - (forward-line 0) - (setq start (point)) - (goto-char oldpoint) - (forward-line 0) - (1+ (count-lines (point-min) (point))))))) - (defun vc-annotate-warp-version (revspec) "Annotate the version described by REVSPEC. @@ -3159,7 +3146,7 @@ revision." (if (not (equal major-mode 'vc-annotate-mode)) (message "Cannot be invoked outside of a vc annotate buffer") - (let* ((oldline (vc-current-line)) + (let* ((oldline (line-at-pos)) (revspeccopy revspec) (newrev nil)) (cond @@ -3191,7 +3178,7 @@ (switch-to-buffer (car (car (last vc-annotate-buffers)))) (goto-line (min oldline (progn (goto-char (point-max)) (previous-line) - (vc-current-line)))))))) + (line-at-pos)))))))) (defun vc-annotate-car-last-cons (a-list) "Return car of last cons in association list A-LIST."