Michael Albinus <[EMAIL PROTECTED]> writes:
> [EMAIL PROTECTED] (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) "Æ!Ç!Ð @ A@ÈÉ 8!Ê
!Ë!1,Ì>?1Í
\"Î>-<Ï=Ð.Ñ!/01ÒÓ Ô 2ÕÖ34
×5`Ø%01+-qÙ
\"Ú
! 6Û
Ü68#)Ý
.
EÞß/\"$ 7@¦àáâÞã7A\"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 "[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css"
nil nil nil nil)
apply(ange-ftp-write-region (1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
ange-ftp-hook-function(write-region 1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)
apply(ange-ftp-hook-function (write-region 1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
tramp-run-real-handler(ange-ftp-hook-function (write-region 1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil))
tramp-invoke-ange-ftp(write-region 1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil nil nil)
tramp-handle-write-region(1 4268
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil)
apply(tramp-handle-write-region (1 4268
"[EMAIL PROTECTED]:/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
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil nil)
write-region(1 4268 "[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css")
tramp-do-copy-or-rename-via-buffer(copy "c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" nil)
tramp-do-copy-or-rename-file(copy "c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" t nil)
tramp-handle-copy-file("c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" t nil)
apply(tramp-handle-copy-file ("c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/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"
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" t nil)
copy-file("c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/lva/ws02.03/EIS/screenstyles.css" t nil)
apply(copy-file ("c:/uni/lva/EIS_WS2002/www/screenstyles.css"
"[EMAIL PROTECTED]:/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.
_______________________________________________
Tramp-devel mailing list
[EMAIL PROTECTED]
http://mail.freesoftware.fsf.org/mailman/listinfo/tramp-devel
