Subject: bug#79183: closed (Re: bug#79183: 31.0.50; vc-register prefix arg error)

From: [email-masked] (GNU bug Tracking System)
Date: Wed, 06 Aug 2025 14:17:03 +0000

Your bug report

#79183: 31.0.50; vc-register prefix arg error

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
79183: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=79183
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#79183: 31.0.50; vc-register prefix arg error
From: Sean Whitton <[email-masked]>
To: [email-masked], Eshel Yaron <[email-masked]>
Date: Wed, 06 Aug 2025 15:16:07 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Hello,

On Wed 06 Aug 2025 at 11:34am +02, Eshel Yaron wrote:

> Hi,
>
> With emacs -Q, visit any file and say C-u vc-register.
> This yields an error: "Wrong type argument: symbolp, 4".
>
> The interactive spec of vc-register seems to be a remnant of a previous
> implementation that is no longer applicable, so I suggest simply
> removing it:

Yes, it looks like it should have been removed in commit 2f4f92007956.

Done it now, on the emacs-30 branch.  Thanks.

-- 
Sean Whitton

Subject: 31.0.50; vc-register prefix arg error
From: Eshel Yaron <[email-masked]>
To: [email-masked]
Date: Wed, 06 Aug 2025 11:34:40 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

With emacs -Q, visit any file and say C-u vc-register.  
This yields an error: "Wrong type argument: symbolp, 4".

The interactive spec of vc-register seems to be a remnant of a previous
implementation that is no longer applicable, so I suggest simply
removing it:

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 4cfd1790266..9f65ab187ce 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1752,7 +1752,7 @@ vc-register
 directory are already registered under that backend) will be used to
 register the file.  If no backend declares itself responsible, the
 first backend that could register the file is used."
-  (interactive "P")
+  (interactive)
   (let* ((fileset-arg (or vc-fileset (vc-deduce-fileset nil t)))
          (backend (car fileset-arg))
 	 (files (nth 1 fileset-arg)))

Best,

Eshel