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

10aa933d · Richard M. Stallman · 27116657 · 10aa933d
Commit 10aa933d authored Nov 16, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/vc-hooks.el lisp/vc-hooks.el +4 -1

No files found.
--- 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)