diff options
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 995bcc25692..9757161b7ad 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1553,7 +1553,7 @@ first backend that could register the file is used." (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) |