Mercurial > emacs

diff lisp/vc.el @ 53839:be1da5092aa4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(line-number-at-pos): Rename from line-at-pos. Uses changed (what-line and vc-annotate-warp-version).
author Kim F. Storm <storm@cua.dk>
date Sat, 07 Feb 2004 00:37:13 +0000
parents 97c8dfb8be3d
children 978c77351d66
line wrap: on
line diff
--- a/lisp/vc.el	Sat Feb 07 00:00:13 2004 +0000
+++ b/lisp/vc.el	Sat Feb 07 00:37:13 2004 +0000
@@ -7,7 +7,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.364 2004/01/22 23:34:33 uid65624 Exp $
+;; $Id: vc.el,v 1.365 2004/01/23 11:20:55 uid65624 Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -3144,7 +3144,7 @@
 revision."
   (if (not (equal major-mode 'vc-annotate-mode))
       (message "Cannot be invoked outside of a vc annotate buffer")
-    (let* ((oldline (line-at-pos))
+    (let* ((oldline (line-number-at-pos))
 	   (revspeccopy revspec)
 	   (newrev nil))
       (cond
@@ -3176,7 +3176,7 @@
 	(switch-to-buffer (car (car (last vc-annotate-buffers))))
 	(goto-line (min oldline (progn (goto-char (point-max))
 				       (previous-line)
-				       (line-at-pos))))))))
+				       (line-number-at-pos))))))))
 
 (defun vc-annotate-car-last-cons (a-list)
   "Return car of last cons in association list A-LIST."