From 5b98eedf80b8aed40fe610eb785ad37a80f03e3d Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Wed, 15 Sep 2021 13:31:29 +0200 Subject: [PATCH] Make 'C-u C-x v v' handle unregistered files. --- 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 512f07d2f6..b3a5ff01cf 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -1214,7 +1214,11 @@ vc-next-action ((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 -- 2.33.0