From: "rgb" <rbielaws@i1.net>
Subject: Re: Multiple people touching the same file with ange-ftp
Date: 12 Jan 2007 10:40:50 -0800 [thread overview]
Message-ID: <1168627249.501429.65360@l53g2000cwa.googlegroups.com> (raw)
In-Reply-To: mailman.2987.1168588869.2155.help-gnu-emacs@gnu.org
> >> Searching for MDTM in ange-ftp.el leads one to ange-ftp-file-modtime.
> >>
> > As yet I don't see an obvious way to override or intercept that
> > function on a host by host basis.
>
> You could start by making ange-ftp-file-modtime extensible, the same way
> ange-ftp-parse-listing is extensible via the ange-ftp-parse-list-func-alist
> variable:
>
> (defvar ange-ftp-file-modtime-func-alist nil
> "Alist saying how to return modification time of remote file.
> Association list of \( TYPE \. FUNC \) pairs, where FUNC is a
> routine which returns the modification time of a remote file from
> a host of type TYPE.")
>
> (defadvice ange-ftp-file-modtime (around func-alist activate)
> "If `ange-ftp-file-modtime-func-alist' has an entry for FILE's host type,
> return the result of calling that function."
> (let* ((ftp-name (ange-ftp-ftp-name file))
> (host (nth 0 ftp-name))
> (user (nth 1 ftp-name))
> (name (nth 2 ftp-name))
> (func (assq (ange-ftp-host-type host)
> ange-ftp-file-modtime-func-alist)))
> (if func
> (funcall func file)
> ad-do-it)))
>
> Now you just have to implement ange-ftp-file-modtime-for-FOO and add
> (FOO . ange-ftp-file-modtime-for-FOO) to ange-ftp-file-modtime-func-alist,
> assuming ange-ftp-host-type returns FOO for file's on your server. :-)
>
Thanks.
I did get it working using your alist suggestion.
(defadvice ange-ftp-file-modtime
(around host-type-alist-advice compile activate)
"If `ange-ftp-file-modtime-func-alist' has an entry for FILE's host
type,
return the result of calling that function."
(let ((fcn (cdr (assq (ange-ftp-host-type
(car (ange-ftp-ftp-name file)))
ange-ftp-file-modtime-func-alist))))
(if fcn
(setq ad-return-value (funcall fcn file))
ad-do-it)))
prev parent reply other threads:[~2007-01-12 18:40 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-01-10 22:40 Multiple people touching the same file with ange-ftp rgb
2007-01-10 22:52 ` rgb
2007-01-11 6:44 ` Kevin Rodgers
[not found] ` <mailman.2958.1168497899.2155.help-gnu-emacs@gnu.org>
2007-01-11 17:34 ` rgb
2007-01-12 8:00 ` Kevin Rodgers
[not found] ` <mailman.2987.1168588869.2155.help-gnu-emacs@gnu.org>
2007-01-12 18:40 ` rgb [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1168627249.501429.65360@l53g2000cwa.googlegroups.com \
--to=rbielaws@i1.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.