Re: Tramp and Zope.

[Kai Großjohann]

address@hidden (Artur Maciąg) writes:

> Debugger entered--Lisp error: (error "Variable binding depth exceeds 
> max-specpdl-size")
>   tramp-run-real-handler(ange-ftp-hook-function (file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html"))
>   tramp-invoke-ange-ftp(file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   
> tramp-handle-file-ownership-preserved-p("/ftp:address@hidden:/artgabi/portfolio/index_html")
>   apply(tramp-handle-file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   byte-code("Ă ÄĹ     A\n\"*" [save-match-data-internal fn args match-data 
> ((set-match-data save-match-data-internal)) apply] 3)
>   tramp-file-name-handler(file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   
> file-ownership-preserved-p("/ftp:address@hidden:/artgabi/portfolio/index_html")
>   apply(file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   ange-ftp-run-real-handler(file-ownership-preserved-p 
> ("/ftp:address@hidden:/artgabi/portfolio/index_html"))
>   ange-ftp-hook-function(file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   apply(ange-ftp-hook-function (file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html"))
>   tramp-run-real-handler(ange-ftp-hook-function (file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html"))
>   tramp-invoke-ange-ftp(file-ownership-preserved-p 
> "/ftp:address@hidden:/artgabi/portfolio/index_html")
>   
> tramp-handle-file-ownership-preserved-p("/ftp:address@hidden:/artgabi/portfolio/index_html")

The question is, why does tramp-run-real-handler lead to Tramp being
invoked itself?  Hm.  Ah, I have an idea.  Please try this patch.
Does it work?

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.174
diff -u -u -r2.174 tramp.el
--- tramp.el    5 Aug 2002 14:53:47 -0000       2.174
+++ tramp.el    6 Aug 2002 09:11:39 -0000
@@ -3127,11 +3127,14 @@
   "Invoke normal file name handler for OPERATION.
 First arg specifies the OPERATION, second arg is a list of arguments to
 pass to the OPERATION."
-  (let ((inhibit-file-name-handlers
+  (let ((op (if (eq operation 'ange-ftp-hook-function)
+               (car args)
+             operation))
+       (inhibit-file-name-handlers
          (list 'tramp-file-name-handler
-               (and (eq inhibit-file-name-operation operation)
+               (and (eq inhibit-file-name-operation op)
                     inhibit-file-name-handlers)))
-        (inhibit-file-name-operation operation))
+        (inhibit-file-name-operation op))
     (apply operation args)))
 
 ;; Main function.
@@ -5662,6 +5665,7 @@
        tramp-coding-commands
        tramp-actions-before-shell
        tramp-multi-actions
+       tramp-terminal-type
 
        ;; Non-tramp variables of interest
        shell-prompt-pattern


kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)