[[ I'm resending this bounce for Mario -- we had a tmp outage
of our mail system (all systems in fact).
-- kai ]]
Hello
In my vc installation the vc-user-login-name advice does not work
properly and I use:
(defadvice vc-user-login-name
(around rcp-vc-user-login-name activate)
"Support for files on remote machines accessed by RCP."
(let ((filename))
(condition-case err
(setq filename (eval 'file))
(error )
)
(or (and (stringp filename)
(rcp-rcp-file-p (rcp-handle-expand-file-name
filename)) ; rcp file
(setq ad-return-value
(rcp-handle-vc-user-login-name uid )); uid))
) ; get the owner name
ad-do-it)) ; else call the original
)
The above is not very clean but it works since it looks at the file
name. I do not remember where filename was defined.
In any case, 'file' is not defined in my implementation and the advice
returns the local user name.
This is what I see as vc version.
;;;###autoload
(package-provide 'vc
:version 1.19
:type 'regular)
This is the last entry in the ChangeLog:
1999-06-07 Colin Rafferty <[EMAIL PROTECTED]>
* vc.el (vc-file-not-found-use-default): Created.
(vc-backend-checkout): Use the above variable.
Regards
Mario
--
# ir. Mario De Weerd ##### mailto:[EMAIL PROTECTED] ##
# Alcatel Microelectronics, Velizy, France
# France: Tel: +33-1-46328285 Fax: +33-1-46325568
########################### Personal mailto:[EMAIL PROTECTED] ##
