Re: Tramp and Zope.

[Artur Maciąg]

address@hidden (Kai Großjohann) writes:

> Oh, sorry.  Please replace let with let* in that function.  (In the
> function tramp-run-real-handler.)  If it still fails, the *tramp/foo*
> buffer, the *debug tramp/foo* buffer and a backtrace would be nice.

 After C-x C-f /ftp:address@hidden:/artgabi/portfolio/index_html

----------------------------------------------------------------------
 *Backtrace* :

Debugger entered--Lisp error: (error "Not a tramp file name: 
/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#")
  signal(error ("Not a tramp file name: 
/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#"))
  error("Not a tramp file name: %s" 
"/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#")
  (if (string-match (nth 0 tramp-file-name-structure) name) nil (error "Not a 
tramp file name: %s" name))
  (unless (string-match (nth 0 tramp-file-name-structure) name) (error "Not a 
tramp file name: %s" name))
  (progn (unless (string-match ... name) (error "Not a tramp file name: %s" 
name)) (setq method (match-string ... name)) (if (and method ...) 
(tramp-dissect-multi-file-name name) (let ... ... ...)))
  (unwind-protect (progn (unless ... ...) (setq method ...) (if ... ... ...)) 
(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 (unless (string-match ... name) (error "Not a tramp file 
name: %s" name)) (setq method (match-string ... name)) (if (and method ...) 
(tramp-dissect-multi-file-name name) (let ... ... ...)))
  (let (method) (save-match-data (unless ... ...) (setq method ...) (if ... ... 
...)))
  
tramp-dissect-file-name("/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#")
  (let* ((v1 ...) (v1-multi-method ...) (v1-method ...) (v1-user ...) (v1-host 
...) (v1-path ...)) (with-parsed-tramp-file-name file2 v2 (when ... ...) 
(unless ... ...) (unless ... ...) (if ... ... ...)))
  (with-parsed-tramp-file-name file1 v1 (with-parsed-tramp-file-name file2 v2 
(when ... ...) (unless ... ...) (unless ... ...) (if ... ... ...)))
  (save-excursion (with-parsed-tramp-file-name file1 v1 
(with-parsed-tramp-file-name file2 v2 ... ... ... ...)))
  (cond ((not ...) nil) ((not ...) t) (t (save-excursion ...)))
  
tramp-handle-file-newer-than-file-p("/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#"
 "/ftp:address@hidden:/artgabi/portfolio/index_html")
  apply(tramp-handle-file-newer-than-file-p 
("/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#" 
"/ftp:address@hidden:/artgabi/portfolio/index_html"))
  (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-newer-than-file-p 
"/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#" 
"/ftp:address@hidden:/artgabi/portfolio/index_html")
  
file-newer-than-file-p("/tmp/#!ftp:address@hidden:!artgabi!portfolio!index_html#"
 "/ftp:address@hidden:/artgabi/portfolio/index_html")
  after-find-file(nil t)
  find-file-noselect-1(#<buffer index_html> 
"/ftp:address@hidden:/artgabi/portfolio/index_html" nil nil 
"/ftp:address@hidden:/artgabi/portfolio/index_html" (1 -1))
  find-file-noselect("/ftp:address@hidden:/artgabi/portfolio/index_html" nil 
nil nil)
  find-file("/ftp:address@hidden:/artgabi/portfolio/index_html" nil)
  call-interactively(find-file)

----------------------------------------------------------------------

 And there's no buffers like *tramp/foo* or *debug tramp/foo*
 tramp-debug-buffer is set to true by:
 (setq tramp-debug-buffer t) C-x C-e

 When I try again file loads, but when I try to save it Emacs says:

----------------------------------------------------------------------
*Messages *

Wrote /home/artur/.emacsowe/!ftp:address@hidden:!artgabi!portfolio!index_html~
apply: Wrong number of arguments: #[(start end filename &optional append visit) 
"‚Ć!‚Ç!žž‚Šžž‚Ł‚Đ  @      address@hidden  8!‚Ę
!‚Ë!žž‚Ś1,‚Ě>?žž‚Ľ1‚Í
\"‚Î>-žž‚Ł<‚Ďžž‚˘=‚Đ.‚Ń!/01‚Ňžž‚Ž‚Ó ‚Ô 2‚Őžž‚Ž‚Ö34
‚×5žž‚Ś`‚Ř%žž‚¨01+-žž‚Łq‚Ů
\"žž‚¨‚Ú
!žž‚Š6žž‚Łžž‚Ł‚Ű
‚Ü68#žž‚¨)‚Ý
.
E‚Ţ‚ß/\"address@hidden"E\"žž‚¨*5‚ä=žž‚Ł‚ž‚ĺ‚ć!!žž‚¨‚ç 
žž‚¨‚č‚×!žž‚¨10‚é‚ę/\"žž‚¨‚ë!.žž‚˘‚Ű‚Ö345%)žž‚§" [filename 
parsed host user name temp expand-file-name ange-ftp-ftp-name 
ange-ftp-quote-string 2 ...] 8], 7
----------------------------------------------------------------------

There's buffer *debug tramp*:

----------------------------------------------------------------------
*debug tramp/nil nil*

# Warning: cannot preserve file time stamp with inline copying across machines

----------------------------------------------------------------------

Buffer *Backtrace* looks the same (error "Not a tramp file name" and so on),
in buffer *tramp output* I've got my file (index_html)

        Artur.

-- 
   Artur Maciąg                          http://www.artgabi.com.pl
----------------------------------------------------------------------