diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-16 22:04:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-16 22:04:24 +0000 |
| commit | f292701e386bf225001309e2b173dd4654bcafd5 (patch) | |
| tree | 6a907339968c9d50256ed19526c75fdc7c8327b0 /lisp/vc-hooks.el | |
| parent | 7836252b89548fa8841b0515456a7b819636efb1 (diff) | |
| download | emacs-f292701e386bf225001309e2b173dd4654bcafd5.tar.gz | |
(vc-locking-user): In CVS case, convert user number to a string.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 5 |
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) |