2008-07-02 Magnus Henoch <mange@freemail.hu>

    	* vc-git.el (vc-git-annotate-command): Use proper option for
    	specifying revision.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13b7ca133c0c1093147455bc8390609577674925..fec981826babaa4c2e1e67bc0f839cc1d7232d45 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-02  Magnus Henoch  <mange@freemail.hu>
+
+       * vc-git.el (vc-git-annotate-command): Use proper option for
+       specifying revision.
+
 2008-07-02  Francesc Rocher  <rocher@member.fsf.org>
 
        * startup.el (fancy-splash-head): Prefer SVG or PNG splash image,

diff --git a/lisp/vc-git.el b/lisp/vc-git.el
index 4c004dd1e35ce4b04b97ba330ceed4fb03fb3550..842d71354489343b1a47fd891424933ee1f68cb7 100644 (file)
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -539,9 +539,8 @@ or BRANCH^ (where \"^\" can be repeated)."
     table))
 
 (defun vc-git-annotate-command (file buf &optional rev)
-  ;; FIXME: rev is ignored
   (let ((name (file-relative-name file)))
-    (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev)))))
+    (vc-git-command buf 0 name "blame" rev)))
 
 (declare-function vc-annotate-convert-time "vc-annotate" (time))