Daniel Pittman writes:
> On Thu, 28 Oct 1999, Jesse Marlin <[EMAIL PROTECTED]> wrote:
>
> > I am having trouble preventing EFS from grabbing this:
> >
> > C-x C-f /r:me@host:/home/me/.emacs
> >
> > I have set rcp-default-method to:
> >
> > (setq rcp-default-method '"rcp")
> >
> > I do not specifically load EFS, it just seems to autoload it.
> > Any hints on this. Thanks. jlm
>
> Strange, it works just fine here. What version of rcp and XEmacs
> are you using?
>
> Also, if you have the Lisp knowledge, breakpointing in
> 'efs-ftp-path' should show up where the EFS handlers are getting
> called from and all. That backtrace might be useful.
Here is my best attempt to get rcp and efs to co-exist. rcp.el 1.130
and XEmacs 20.3, started with -q,
(require 'efs)
efs
(load "~/lisp/rcp" t)
t
file-name-handler-alist
(("\\`/r[@:]" . rcp-file-name-handler) ("^/[^/:]+:" . efs-file-handler-function)
("^/$" . efs-root-handler-function) ("\\(^\\|[^$]\\)\\(\\$\\$\\)*\\$[{a-zA-Z0-9]" .
efs-sifn-handler-function))
(require 'rcp)
rcp
(find-file-name-handler '"/r:morse:.vm")
rcp-file-name-handler
(find-file-name-handler '"/anon@morse:.vm")
efs-file-handler-function
This is what happens when I set a couple of breakpoints and try to use
rcp.
Entering:
* efs-file-handler-function(substitute-in-file-name "/r:morse:.vm")
substitute-in-file-name("/r:morse:.vm")
apply(substitute-in-file-name "/r:morse:.vm")
(let ((inhibit-file-name-handlers ...) (inhibit-file-name-operation operation))
(apply operation args))
)
rcp-run-real-handler(substitute-in-file-name ("/r:morse:.vm"))
(if fn (apply (cdr fn) args) (rcp-run-real-handler operation args))
)
(let ((fn ...)) (if fn (apply ... args) (rcp-run-real-handler operation args)))
)
* rcp-file-name-handler(substitute-in-file-name "/r:morse:.vm")
substitute-in-file-name("/r:morse:.vm")
read-file-name-2(file-name-history "Find file: " nil nil nil nil
read-file-name-internal)
read-file-name-1(file-name-history "Find file: " nil nil nil nil
read-file-name-internal)
read-file-name("Find file: " nil nil nil)
call-interactively(find-file)
For what it's worth, this is in my normal .emacs to run rcp without
efs.
(let ((old-handler file-name-handler-alist))
(setq temporary-file-directory "/tmp"
file-name-handler-alist nil
last-coding-system-used nil)
(if (load "~/lisp/rcp" t)
(require 'rcp)
(setq file-name-handler-alist old-handler)))
--
Pete Forman
Western Geophysical
[EMAIL PROTECTED]
