diff options
| author | Eric S. Raymond | 2007-12-18 08:25:34 +0000 |
|---|---|---|
| committer | Eric S. Raymond | 2007-12-18 08:25:34 +0000 |
| commit | 5f01100afe3475bafa640343f6701d9b219ea70f (patch) | |
| tree | 09d08083cdfffb6c2bac4198be075bb6e3d63ee2 | |
| parent | a1884c78c4f672e78d82e91f7b5146ce04c16d93 (diff) | |
| download | emacs-5f01100afe3475bafa640343f6701d9b219ea70f.tar.gz emacs-5f01100afe3475bafa640343f6701d9b219ea70f.zip | |
bname needs to be a buffer name, not a filename.
| -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." | |||
| 1553 | (interactive "P") | 1553 | (interactive "P") |
| 1554 | (when (and (null fname) (null buffer-file-name)) (error "No visited file")) | 1554 | (when (and (null fname) (null buffer-file-name)) (error "No visited file")) |
| 1555 | 1555 | ||
| 1556 | (let ((bname (if fname (get-file-buffer fname) buffer-file-name))) | 1556 | (let ((bname (if fname (get-file-buffer fname) (current-buffer)))) |
| 1557 | (unless fname (setq fname buffer-file-name)) | 1557 | (unless fname (setq fname buffer-file-name)) |
| 1558 | (when (vc-backend fname) | 1558 | (when (vc-backend fname) |
| 1559 | (if (vc-registered fname) | 1559 | (if (vc-registered fname) |