master f6f8791: Make 'C-u C-x v v' handle unregistered files.

[Lars Ingebrigtsen]

branch: master
commit f6f87917fc5eb151aff0facc390983012644a681
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make 'C-u C-x v v' handle unregistered files.
    
    * lisp/vc/vc.el (vc-next-action): Make 'C-u C-x v v' handle
    unregistered files (bug#50602).
---
 lisp/vc/vc.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 8767969..7d3b0f5 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1216,7 +1216,11 @@ For old-style locking-based version control systems, 
like RCS:
      ((eq state 'ignored)
       (error "Fileset files are ignored by the version-control system"))
      ((or (null state) (eq state 'unregistered))
-      (vc-register vc-fileset))
+      (cond (verbose
+             (let ((backend (vc-read-backend "Backend to register to: ")))
+               (vc-register (cons backend (cdr vc-fileset)))))
+            (t
+             (vc-register vc-fileset))))
      ;; Files are up-to-date, or need a merge and user specified a revision
      ((or (eq state 'up-to-date) (and verbose (eq state 'needs-update)))
       (cond