# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1197966334 0
# Node ID ac2e9c3d2b02fa75a6e04a3b514eab4199376a65
# Parent  3b14ea2b1d8aaf34fb9a893e89fe0fd4f49bb0bf
bname needs to be a buffer name, not a filename.

diff -r 3b14ea2b1d8a -r ac2e9c3d2b02 lisp/vc.el
--- a/lisp/vc.el	Tue Dec 18 03:29:10 2007 +0000
+++ b/lisp/vc.el	Tue Dec 18 08:25:34 2007 +0000
@@ -1553,7 +1553,7 @@
   (interactive "P")
   (when (and (null fname) (null buffer-file-name)) (error "No visited file"))
 
-  (let ((bname (if fname (get-file-buffer fname) buffer-file-name)))
+  (let ((bname (if fname (get-file-buffer fname) (current-buffer))))
     (unless fname (setq fname buffer-file-name))
     (when (vc-backend fname)
       (if (vc-registered fname)