(vc-register): Clean error message if no visited file.

diff --git a/lisp/vc.el b/lisp/vc.el
index 54f71fb0d93182d378fd002f4a691d8582347418..c68973505e8713a4aeb30e0d583b1cda19b37ac9 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -640,6 +640,8 @@ merge in the changes into your working copy."
   "Register the current file into your version-control system."
   (interactive "P")
   (let ((master (vc-name buffer-file-name)))
+    (or buffer-file-name
+       (error "No visited file"))
     (and master (file-exists-p master)
         (error "This file is already registered"))
     (and master