tramp and ange-ftp

[Stefan Reichör]

Hi,

I use wup.el to update my website.
wup.el copies the files from my local disk via ftp to the web server.

My .wuprc contains the following:

(setq wup-dry-run-p nil)
(setq wup-src-home-dir "c:/uni/lva/EIS_WS2002/www")
(setq wup-website-dir "/address@hidden:/lva/ws02.03/EIS")

This means, I want to copy the files from wup-src-home-dir to wup-website-dir.

It worked without problems, before tramp entered the scene.

I use the latest emacs+tramp from the cvs.

When I call M-x wup: I get the following backtrace:

Debugger entered--Lisp error: (wrong-number-of-arguments #[(start end filename 
&optional append visit) "Æ!.Ç!..Ð.    @.      address@hidden  8!.Ê
!.Ë!.1.,Ì>?.1.Í
\"Î>.-..<.Ï.=.Ð..Ñ!./.0.1Ò.Ó Ô .2.Õ.Ö.3.4
×.5.`.Ø%.0.1+.-.q.Ù
\".Ú
!.6.ƒ.Û
Ü.68#.)Ý
..
EÞß./\"address@hidden"E\".*.5ä=.¾.åæ!!.ç 
..è×!.1.0éê./\".ë!..Û.Ö.3.4..5%)." [filename parsed host user name temp 
expand-file-name ange-ftp-ftp-name ange-ftp-quote-string 2 
ange-ftp-make-tmp-name ange-ftp-binary-file (ms-dos windows-nt macos vax-vms) 
ange-ftp-host-type (unix dumb-unix) append put ange-ftp-abbreviate-filename 
((byte-code "Ä!.       .
.Å
\".Ä." [temp binary host user ange-ftp-del-tmp-name ange-ftp-set-ascii-mode] 
3)) buffer-file-name buffer-modified-p ((byte-code ".
.Å!." [last-coding-system-used coding-system-used filename buffer-file-name 
mod-p set-buffer-modified-p] 2)) ange-ftp-real-write-region nil quiet 
ange-ftp-set-binary-mode file-attributes ange-ftp-set-xfer-size 7 
ange-ftp-send-cmd format "Writing %s" signal ftp-error "Opening output file" 
"FTP Error: \"%s\"" t set-visited-file-modtime ange-ftp-file-modtime 
ange-ftp-set-buffer-mode set-buffer-modified-p ange-ftp-message "Wrote %s" 
ange-ftp-add-file-entry system-type binary cmd abbr last-coding-system-used 
coding-system-used mod-p start end visit attr result] 8] 7)
  ange-ftp-write-region(1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)
  apply(ange-ftp-write-region (1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
  ange-ftp-hook-function(write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)
  apply(ange-ftp-hook-function (write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
  tramp-run-real-handler(ange-ftp-hook-function (write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
  tramp-invoke-ange-ftp(write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)
  tramp-handle-write-region(1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil)
  apply(tramp-handle-write-region (1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil))
  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(write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil)
  write-region(1 4268 "/address@hidden:/lva/ws02.03/EIS/screenstyles.css")
  tramp-do-copy-or-rename-via-buffer(copy 
"c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil)
  tramp-do-copy-or-rename-file(copy 
"c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil)
  tramp-handle-copy-file("c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil)
  apply(tramp-handle-copy-file ("c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil))
  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(copy-file 
"c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil)
  copy-file("c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil)
  apply(copy-file ("c:/uni/lva/EIS_WS2002/www/screenstyles.css" 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" t nil))
  (let (ange-ftp-process-verbose) (apply func args))
  (let* ((func ...) (args ...) (file ...)) (message "[%d/%d] %s %s%s" entry 
count func (file-name-nondirectory file) (if ... ... "")) (let 
(ange-ftp-process-verbose) (apply func args)) (setq entry (1+ entry)))
  (while --dolist-temp--20111 (setq todo (car --dolist-temp--20111)) (let* (... 
... ...) (message "[%d/%d] %s %s%s" entry count func ... ...) (let ... ...) 
(setq entry ...)) (setq --dolist-temp--20111 (cdr --dolist-temp--20111)))
  (let ((--dolist-temp--20111 wup-todo-list) todo) (while --dolist-temp--20111 
(setq todo ...) (let* ... ... ... ...) (setq --dolist-temp--20111 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... todo) (while --dolist-temp--20111 
... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... todo) (while --dolist-temp--20111 ... ... ...) nil))
  (dolist (todo wup-todo-list) (let* (... ... ...) (message "[%d/%d] %s %s%s" 
entry count func ... ...) (let ... ...) (setq entry ...)))
  (let ((entry 1) (count ...)) (dolist (todo wup-todo-list) (let* ... ... ... 
...)) (wup-timestamp))
  (if wup-dry-run-p nil (let (... ...) (dolist ... ...) (wup-timestamp)))
  (unless wup-dry-run-p (let (... ...) (dolist ... ...) (wup-timestamp)))
  (let ((default-directory wup-src-home-dir)) (setq wup-todo-list nil 
wup-timestamp-file-time (wup-mt wup-timestamp-file)) (run-hooks (quote 
wup-pre-update-hook)) (wup-process-relative-dir "") (unless wup-dry-run-p (let 
... ... ...)) (run-hooks (quote wup-post-update-hook)))
  (let ((message-log-max t) (dired-listing-switches "-alF") wup-src-home-dir 
wup-website-dir wup-ignored-files-regexps wup-pre-update-hook 
wup-post-update-hook wup-dry-run-p) (if (not ...) (error "No .wuprc 
configuration file in %s" default-directory) (load-file ".wuprc")) (let (...) 
(setq wup-todo-list nil wup-timestamp-file-time ...) (run-hooks ...) 
(wup-process-relative-dir "") (unless wup-dry-run-p ...) (run-hooks ...)))
  (wup-in-action (let (...) (setq wup-todo-list nil wup-timestamp-file-time 
...) (run-hooks ...) (wup-process-relative-dir "") (unless wup-dry-run-p ...) 
(run-hooks ...)))
  wup()
  call-interactively(wup)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)



tramp calls ange-ftp-write-region with to many arguments:
C-h f ange-ftp-write-region =>
  ange-ftp-write-region is a compiled Lisp function in `ange-ftp'.
  (ange-ftp-write-region START END FILENAME &optional APPEND VISIT)
  
  Not documented.

But it is called like this:
(ange-ftp-write-region 1 4268 
"/address@hidden:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)

Stefan.