Re: tramp and ange-ftp

[Stefan Reichör]

Michael Albinus <address@hidden> writes:

> address@hidden (Kai =?iso-8859-15?q?Gro=DFjohann?=) writes:
>
>> It would be great if you did it.  If you don't have time, I'll do
>> it.  Thanks, Michael!
>
> Fix committed to CVS.
>
>> kai
>
> Best regards, Michael.
>
I updated to the new version, but it still does not work

Now I have: 
tramp.el version 2.0.14, emacs cvs version 1.22
ange-ftp.el, emacs cvs version 1.45

Debugger entered--Lisp error: (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 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--96010 (setq todo (car --dolist-temp--96010)) (let* (... 
... ...) (message "[%d/%d] %s %s%s" entry count func ... ...) (let ... ...) 
(setq entry ...)) (setq --dolist-temp--96010 (cdr --dolist-temp--96010)))
  (let ((--dolist-temp--96010 wup-todo-list) todo) (while --dolist-temp--96010 
(setq todo ...) (let* ... ... ... ...) (setq --dolist-temp--96010 ...)) nil)
  (catch (quote --cl-block-nil--) (let (... todo) (while --dolist-temp--96010 
... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... todo) (while --dolist-temp--96010 ... ... ...) 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)

=> ange-ftp-write-region is still called with 2 extra parameters

Stefan.