[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: emacs-wget 0.3.1
From: Masayuki Ataka <ataka@milk.freemail.ne.jp>
Subject: [emacs-w3m:04172] Re: emacs-wget 0.3.1
Date: Mon, 28 Oct 2002 22:42:25 +0900 (JST)
> > 以下の環境で emacs-wget 0.3.1 を使用していますが、wget.exe の引数の順
> > 番がおかしいらしく、file は download できるのですが "failed" と言われ
> > てしまいます。
> >
> 添付のパッチを試して頂けますか。
> > ちょっと検索したところ、小関さんの日記(※)で同様(?)の報告を見付けました。
> > # 残念ながら対処方法は見あたらなかったのですが...
> >
> > (※)http://cgi.NetLaputa.ne.jp/~kose/diary/?200207b#200207162
>
おや、小関さんの書かれている cygwin/wget-1.8.2 の
コマンド引数の順番の問題があるとしたら、上のパッチではダメですね。
前のパッチではなく、こちらのパッチを試して下さい。
----Input with T-Code!
http://isweb22.infoseek.co.jp/computer/pop-club
Masayuki Ataka / 安宅 正之 (ataka@milk.freemail.ne.jp)
Index: ../prog/wget/wget.el
===================================================================
RCS file: /home/m1378502/repository/wget/wget.el,v
retrieving revision 1.37
diff -c -r1.37 wget.el
*** ../prog/wget/wget.el 26 Oct 2002 08:59:19 -0000 1.37
--- ../prog/wget/wget.el 28 Oct 2002 14:16:23 -0000
***************
*** 388,398 ****
"Wget URI asynchronously.
Optional argument OPTIONS is a list of options to pass wget
process."
! (let* ((args (append (list uri) options))
(buf wget-process-buffer)
! (proc (if (and wget-env-command
! (not (string= (getenv "LANG") "C")))
! (apply 'start-process "wget" buf wget-env-command "LANG=C" wget-command args)
(apply 'start-process "wget" buf wget-command args)))
(win (selected-window)))
(setq wget-process-percent-alist
--- 388,400 ----
"Wget URI asynchronously.
Optional argument OPTIONS is a list of options to pass wget
process."
! (let* ((args `(,@options ,uri))
(buf wget-process-buffer)
! (lang (getenv "LANG"))
! (proc (if (and wget-env-command lang
! (not (string= lang "C")))
! (apply 'start-process "wget" buf wget-env-command
! `("LANG=C" ,wget-command ,@args))
(apply 'start-process "wget" buf wget-command args)))
(win (selected-window)))
(setq wget-process-percent-alist
***************
*** 617,626 ****
"Return cons cell of (URI . PROCESS) if PROC is `wget-command' process.
If not, return nil."
(let ((command (process-command proc)))
! (if (string= wget-env-command (car command))
! (cons (car (cdr (cdr (cdr command)))) proc)
! (if (string= wget-command (car command))
! (cons (car (cdr command)) proc)))))
(defun wget-process-file-name (proc)
"Return file or directory name of URI under wget process PROC."
--- 619,627 ----
"Return cons cell of (URI . PROCESS) if PROC is `wget-command' process.
If not, return nil."
(let ((command (process-command proc)))
! (when (or (string= wget-env-command (car command))
! (string= wget-command (car command)))
! (cons (nth (1- (length command)) command) proc))))
(defun wget-process-file-name (proc)
"Return file or directory name of URI under wget process PROC."