Ville Skyttä <scop(a)xemacs.org> writes:
But in the absence of process-file or similar that we could use the
handlers for, let's leave tramp as is (patched) and go all the way then in
vc - the attached patch is not that pretty but I think it should fix this
issue. Could you test it?
Sorry to enter your discussion. But I believe it is not a good idea to
have tramp-related code in vc*.el. In order to hide such dependencies,
tramp-vc.el was introduced.
I will do my best, but I cannot guarantee that the API will be kept
stable for internal Tramp functions. Therefore any code using Tramp
internal functions might fail in the future. And indeed,
`tramp-send-command-and-check' has a different parameter list in Tramp
2.1. And since Tramp 2.1 is also intended for XEmacs, your patch would
fail there already.
However, even if you take Tramp functionality directly, you should
(defun vc-user-login-name (file)
"Return the name under which the user accesses the given FILE."
(or (and (eq (string-match tramp-file-name-regexp file) 0)
Hmm. In GNU Emacs (please forgive me) the function `file-remote-p'
supports file name handlers for magic file names. Such a call is much
more robust wrt Tramp internals.
(or (and (file-remote-p file)
I believe it might be a good idea for XEmacs to expand its own
`file-remote-p' such a way. But it isn't applicable just now, I
;; tramp case: execute "whoami" via tramp
- (let ((default-directory (file-name-directory file)))
- (if (not (zerop (process-file "whoami" nil t)))
Maybe you can save this approach. All file name handler based functions
in Tramp are implemented as `tramp-handle-<function>' with exactly the
same parameter list. So you shall define something like this:
(or (functionp 'process-file)
(defalias 'process-file 'tramp-handle-process-file))
The other altrnative would be to call `tramp-handle-process-file' directly.
But this would be more work to remove this hack once XEmacs knows
`process-file' as well (given, you have other places to use this
- ;; fall through if "whoami" didn't
- ;; remove trailing newline
- (delete-region (1- (point-max)) (point-max))
+ ;; XEmacs change: we don't have process-file or call-process for
+ ;; which we could apply the tramp handler, use tramp directly
+ (require 'tramp)
+ (with-parsed-tramp-file-name file nil
+ (if (not (zerop (tramp-send-command-and-check
+ multi-method method user host "whoami")))
As I said already, this won't work with Tramp 2.1 (it doesn't know
Best regards, Michael.
XEmacs-Beta mailing list