changeset 87319:ac2e9c3d2b02

bname needs to be a buffer name, not a filename.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Tue, 18 Dec 2007 08:25:34 +0000
parents 3b14ea2b1d8a
children 80e1a8076c36
files lisp/vc.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)