From 10aa933d49e7ae123e1b28c438f55e6aa084bc6f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 16 Nov 1995 22:04:24 +0000 Subject: [PATCH] (vc-locking-user): In CVS case, convert user number to a string. --- lisp/vc-hooks.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 4b7bcbcf7af..ff22fd58698 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -608,7 +608,10 @@ For CVS, the full name of CVS/Entries is returned." (and (equal (vc-file-getprop file 'vc-checkout-time) (nth 5 (file-attributes file))) (vc-file-setprop file 'vc-locking-user 'none)) - (vc-file-setprop file 'vc-locking-user (vc-file-owner file)))) + (let ((locker (vc-file-owner file))) + (vc-file-setprop file 'vc-locking-user + (if (stringp locker) locker + (format "%d" locker)))))) ((eq (vc-backend file) 'RCS) (let (p-lock) -- 2.39.2