# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816559464 0
# Node ID 1c20ebe08f0acb2f07f3217bf76f92d0de78d424
# Parent  1bd9b0579ae5e6169b223abb5ecd027ee1360441
(vc-locking-user): In CVS case, convert user number to a string.

diff -r 1bd9b0579ae5 -r 1c20ebe08f0a lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Thu Nov 16 21:59:46 1995 +0000
+++ b/lisp/vc-hooks.el	Thu Nov 16 22:04:24 1995 +0000
@@ -608,7 +608,10 @@
 	    (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)