Re: I miss ange-ftp ($#@!Tramp)

[kai.grossjohann@uni-duisburg.de (Kai Großjohann)]

"Robert J. Chassell" <bob@rattlesnake.com> writes:

>     ;;; from emacs/lisp/net/ange-ftp.el
>
>     ;;; This regexp takes care of real ange-ftp file names (with a slash
>     ;;; and colon).
>     ;;; Don't allow the host name to end in a period--some systems use /.:
>     ;;;###autoload
>     (or (assoc "^/[^/:]*[^/:.]:" file-name-handler-alist)
>         (setq file-name-handler-alist
>               (cons '("^/[^/:]*[^/:.]:" . ange-ftp-hook-function)
>                     file-name-handler-alist)))
>
>     ;;; This regexp recognizes absolute filenames with only one component,
>     ;;; for the sake of hostname completion.
>     ;;;###autoload
>     (or (assoc "^/[^/:]*\\'" file-name-handler-alist)
>         (setq file-name-handler-alist
>               (cons '("^/[^/:]*\\'" . ange-ftp-completion-hook-function)
>                     file-name-handler-alist)))
>
>     ;;; This regexp recognizes absolute filenames with only one component
>     ;;; on Windows, for the sake of hostname completion.
>     ;;; NB. Do not mark this as autoload, because it is very common to
>     ;;; do completions in the root directory of drives on Windows.
>     (and (memq system-type '(ms-dos windows-nt))
>          (or (assoc "^[a-zA-Z]:/[^/:]*\\'" file-name-handler-alist)
>              (setq file-name-handler-alist
>                    (cons '("^[a-zA-Z]:/[^/:]*\\'" .
>                            ange-ftp-completion-hook-function)
>                          file-name-handler-alist))))

This means that both Tramp and Ange-FTP are present in
file-name-handler-alist, I think.  (Type C-h v
file-name-handler-alist RET to find out.)

That's not good.

Tramp has been changed to automatically invoke Ange-FTP when
necessary.  So I suggest to either use that facility (if it works),
or to disable Tramp completely if you want to just use Ange-FTP
without Tramp.

I think the following code will disable Tramp:

(setq file-name-handler-alist
      (delelete (assq 'tramp-completion-file-name-handler
                      file-name-handler-alist)
                file-name-handler-alist))
(setq file-name-handler-alist
      (delelete (assq 'tramp-file-name-handler
                      file-name-handler-alist)
                file-name-handler-alist))

I think I should go back to the first bug report where it says that
Ange-FTP failed.

-- 
~/.signature is: umop ap!sdn    (Frank Nobis)