tramp-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

tramp (2.0.10); ange-ftp doesn't work


From: Michael Albinus
Subject: tramp (2.0.10); ange-ftp doesn't work
Date: 05 Aug 2002 11:34:58 +0200
User-agent: Gnus/5.0808 (Gnus v5.8.8) Emacs/20.7

Hi,

I have difficulties using ange-ftp via tramp.

First, I get the the error "Symbol's value as variable is void:
ange-ftp-name-format". This can be solved by the following patch:

*** /home/albinus/src/tramp/lisp/tramp.el.orig  Mon Aug  5 09:44:16 2002
--- /home/albinus/src/tramp/lisp/tramp.el       Mon Aug  5 11:17:53 2002
***************
*** 3189,3195 ****
  
  (defun tramp-invoke-ange-ftp (operation &rest args)
    "Invoke the Ange-FTP handler function and throw."
!   (or ange-ftp-name-format (require 'ange-ftp))
    (let ((ange-ftp-name-format
         (list (nth 0 tramp-file-name-structure)
               (nth 3 tramp-file-name-structure)
--- 3189,3195 ----
  
  (defun tramp-invoke-ange-ftp (operation &rest args)
    "Invoke the Ange-FTP handler function and throw."
!   (or (boundp 'ange-ftp-name-format) (require 'ange-ftp))
    (let ((ange-ftp-name-format
         (list (nth 0 tramp-file-name-structure)
               (nth 3 tramp-file-name-structure)

ange-ftp starts now. But after entering the password, tramp dumps with

Signaling: (error "Lisp nesting exceeds max-lisp-eval-depth")
  (or var (quote v))
  (list (quote tramp-file-name-multi-method) (or var (quote v)))
  (list (if var (intern ...) (quote multi-method)) (list (quote 
tramp-file-name-multi-method) (or var ...)))
  (list (list (or var ...) (list ... filename)) (list (if var ... ...) (list 
... ...)) (list (if var ... ...) (list ... ...)) (list (if var ... ...) (list 
... ...)) (list (if var ... ...) (list ... ...)) (list (if var ... ...) (list 
... ...)))
  (cons (list (list ... ...) (list ... ...) (list ... ...) (list ... ...) (list 
... ...) (list ... ...)) body)
  (cons (quote let*) (cons (list ... ... ... ... ... ...) body))
  (backquote-list* (quote let*) (list (list ... ...) (list ... ...) (list ... 
...) (list ... ...) (list ... ...) (list ... ...)) body)
  (\` (let* (... ... ... ... ... ...) (\,@ body)))
  (lambda (filename var &rest body) "Parse a Tramp filename and make components 
available in the body.\n\nFirst arg FILENAME is evaluated and dissected into 
its components.\nSecond arg VAR is a symbol.  It is used as a variable name to 
hold\nthe filename structure.  It is also used as a prefix for the 
variables\nholding the components.  For example, if VAR is the symbol `foo', 
then\n`foo' will be bound to the whole structure, `foo-multi-method' will\nbe 
bound to the multi-method component, and so on for `foo-method',\n`foo-user', 
`foo-host', `foo-path'.\n\nRemaining args are Lisp expressions to be evaluated 
(inside an implicit\n`progn').\n\nIf VAR is nil, then we bind `v' to the 
structure and `multi-method',\n`method', `user', `host', `path' to the 
components." (\` (let* ... ...)))(file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp (quote file-name-nondirectory) 
file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  apply(ange-ftp-hook-function file-name-nondirectory "/slbwba:/home/albinus")
  (throw (quote tramp-forward-to-ange-ftp) (apply (quote 
ange-ftp-hook-function) operation args))
  (let ((ange-ftp-name-format ...)) (throw (quote tramp-forward-to-ange-ftp) 
(apply ... operation args)))
  tramp-invoke-ange-ftp(file-name-nondirectory "/slbwba:/home/albinus")
  (progn (tramp-invoke-ange-ftp (quote file-name-nondirectory) file))
  (if (tramp-ange-ftp-file-name-p multi-method method) (progn 
(tramp-invoke-ange-ftp ... file)))
  (when (tramp-ange-ftp-file-name-p multi-method method) (tramp-invoke-ange-ftp 
(quote file-name-nondirectory) file))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path 
...)) (when (tramp-ange-ftp-file-name-p multi-method method) 
(tramp-invoke-ange-ftp ... file)) (file-name-nondirectory path))
  (with-parsed-tramp-file-name file nil (when (tramp-ange-ftp-file-name-p 
multi-method method) (tramp-invoke-ange-ftp ... file)) (file-name-nondirectory 
path))
  tramp-handle-file-name-nondirectory("/slbwba:/home/albinus")
  apply(tramp-handle-file-name-nondirectory "/slbwba:/home/albinus")
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (apply (cdr fn) args))
  (catch (quote tramp-forward-to-ange-ftp) (save-match-data (apply ... args)))
  (if fn (catch (quote tramp-forward-to-ange-ftp) (save-match-data ...)) 
(tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (catch ... ...) (tramp-run-real-handler operation 
args)))
  tramp-file-name-handler(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  apply(file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-run-real-handler(file-name-nondirectory ("/slbwba:/home/albinus"))
  ange-ftp-real-file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-file-name-nondirectory("/slbwba:/home/albinus")
  apply(ange-ftp-file-name-nondirectory "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-name-nondirectory "/slbwba:/home/albinus")
  file-name-nondirectory("/slbwba:/home/albinus")
  ange-ftp-get-file-entry("/slbwba:/home/albinus/")
  ange-ftp-file-directory-p("/slbwba:/home/albinus")
  apply(ange-ftp-file-directory-p "/slbwba:/home/albinus")
  ange-ftp-hook-function(file-directory-p "/slbwba:/home/albinus")
  file-directory-p("/slbwba:/home/albinus/")
  find-file-noselect("/slbwba:" nil nil 1)
  find-file("/slbwba:" 1)
* call-interactively(find-file)


Emacs  : GNU Emacs 20.7.1 (hppa1.1-hp-hpux10.20, Motif)
 of Tue Dec 19 2000 on slbh20
Package: tramp (2.0.10)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-multi-method nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "ftp"
 tramp-rsh-end-of-line "\n"
 tramp-remote-path '("/appli/pub/bin" "/home/env/bin" "/bin" "/usr/bin"
                     "/usr/sbin" "/usr/local/bin" "/usr/ccs/bin" "/local/bin"
                     "/local/freeware/bin" "/local/gnu/bin"
                     "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin")
 tramp-login-prompt-regexp ".*ogin: *"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):? *"
 tramp-wrong-passwd-regexp "^.*\\(Connection \\(closed\\|refused\\)\\|Host key 
verification failed\\.\\|Login \\(Incorrect\\|incorrect\\)\\|Name or service 
not known\\|Permission denied\\.\\|Sorry, try again\\.\\).*\\|^.*\\(Received 
signal [0-9]+\\).*"
 tramp-yesno-prompt-regexp "Are you sure you want to continue connecting 
(yes/no)\\? *"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure 
'("\\`/\\(\\([a-zA-Z0-9-]+\\):\\)?\\(\\([^:@/]+\\)@\\)?\\([^:/]+\\):\\(.*\\)\\'"
 2 4 5 6)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-multi-file-name-structure 
'("\\`/\\(\\([a-zA-Z0-9]+\\)?:\\)\\(\\(%s\\)+\\)\\(.*\\)\\'" 2 3 -1)
 tramp-multi-file-name-hop-structure 
'("\\([a-zA-z0-9_]+\\):\\([^@:/]+\\)@\\([^:/]+\\):" 1 2 3)
 tramp-multi-methods '("multi" "multiu")
 tramp-multi-connection-function-alist '(("telnet" tramp-multi-connect-telnet
                                          "telnet %h%n")
                                         ("rsh" tramp-multi-connect-rlogin
                                          "remsh %h -l %u%n")
                                         ("ssh" tramp-multi-connect-rlogin
                                          "ssh %h -l %u%n")
                                         ("su" tramp-multi-connect-su
                                          "su - %u%n")
                                         ("sudo" tramp-multi-connect-su
                                          "sudo -u %u -s%n")
                                         )
 tramp-make-tramp-file-format "/%m:address@hidden:%p"
 tramp-end-of-output "/////"
 tramp-coding-commands '(("mimencode -b" "mimencode -u -b"
                          base64-encode-region base64-decode-region)
                         ("mmencode -b" "mmencode -u -b" base64-encode-region
                          base64-decode-region)
                         ("recode data..base64" "recode base64..data"
                          base64-encode-region base64-decode-region)
                         ("uuencode xxx" "uudecode -o -" nil
                          uudecode-decode-region)
                         ("uuencode xxx" "uudecode -p" nil
                          uudecode-decode-region)
                         ("uuencode xxx" "tramp_uudecode" nil
                          uudecode-decode-region)
                         ("tramp_encode_with_module"
                          "tramp_decode_with_module" base64-encode-region
                          base64-decode-region)
                         ("tramp_encode" "tramp_decode" base64-encode-region
                          base64-decode-region)
                         )
 tramp-actions-before-shell '((tramp-password-prompt-regexp
                               tramp-action-password)
                              (tramp-login-prompt-regexp tramp-action-login)
                              (shell-prompt-pattern tramp-action-succeed)
                              (tramp-wrong-passwd-regexp
                               tramp-action-permission-denied)
                              (tramp-yesno-prompt-regexp tramp-action-yesno))
 tramp-multi-actions '((tramp-password-prompt-regexp
                        tramp-multi-action-password)
                       (tramp-login-prompt-regexp tramp-multi-action-login)
                       (shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-wrong-passwd-regexp
                        tramp-multi-action-permission-denied)
                       )
 shell-prompt-pattern "^[^]#$%>\n]*[]#$%>] *"
 backup-by-copying nil
 backup-by-copying-when-linked nil
 backup-by-copying-when-mismatch nil
 nil nil
 file-name-handler-alist '(("^/[^/:]*\\'" . ange-ftp-completion-hook-function)
                           ("^/[^/:]*[^/:.]:" . ange-ftp-hook-function)
                           ("\\`/[^/:]+:" . tramp-file-name-handler)
                           ("\\`/:" . file-name-non-special))
 )




reply via email to

[Prev in Thread] Current Thread [Next in Thread]