(vc-locking-user): In CVS case, convert user number to a string.

1 files changed, 4 insertions, 1 deletions

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)