Mercurial > emacs

changeset 13571:1c20ebe08f0a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-locking-user): In CVS case, convert user number to a string.
author Richard M. Stallman <rms@gnu.org>
date Thu, 16 Nov 1995 22:04:24 +0000
parents 1bd9b0579ae5
children abbd898a545b
files lisp/vc-hooks.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)