Re: ange-ftpができない

["長岡暁弘" <a.nagaok@xxxxxxxxx>]

長岡です。

07/03/29 に 白井秀行 Hideyuki SHIRAI<shirai@xxxxxxxxxxx> さんは書きました:
> 白井です。
>
> From: "長岡暁弘" <a.nagaok@xxxxxxxxx> さん曰く
> Subject: ange-ftpができない
> Message-ID: <7d52d9070703271941v52ab07fbhd71cddbee3fc657d@xxxxxxxxxxxxxx>
> Date: Wed, 28 Mar 2007 11:41:00 +0900
>
　　　　　　　　　：
　　　　　　　　　：
> どこでこのエラーが出ているのかわからないので、
>
> *scratch* などで
>
> (with-temp-buffer
>  (insert-file-contents (locate-library "ange-ftp.el"))
>  (eval-buffer))
>
> を評価したあとに
>
> M-x toggle-debug-on-error
>
> して、もう一度エラーさせてみてください。そうすると、*Backtrace*
> というバッファができるので、それを送ってください。また、

以下が*Backtrace*のバッファの内容です。

Debugger entered--Lisp error: (wrong-type-argument symbolp
(japanese-shift-jis-dos))
  start-process("*ftp nagaoka@clotho*" "*ftp nagaoka@clotho*"
"c:/Meadow/bin/ftp.exe" "-i" "-n" "-g" "-v")
  apply(start-process "*ftp nagaoka@clotho*" "*ftp nagaoka@clotho*"
("c:/Meadow/bin/ftp.exe" "-i" "-n" "-g" "-v"))
  (setq proc (apply (quote start-process) name name args))
  (if use-gateway (if ange-ftp-gateway-program-interactive (setq proc
...) (setq proc ...)) (setq proc (apply ... name name args)))
  (let ((process-connection-type t) (process-environment
process-environment) (buffer ...)) (save-excursion (set-buffer buffer)
(internal-ange-ftp-mode)) (setenv "TERM" "dumb") (if use-gateway (if
ange-ftp-gateway-program-interactive ... ...) (setq proc ...)))
  (let* ((use-gateway ...) (use-smart-ftp ...) (ftp-prog ...) (args
...) (file-name-handler-alist) (default-directory ...) proc) (let (...
... ...) (save-excursion ... ...) (setenv "TERM" "dumb") (if
use-gateway ... ...)) (save-excursion (set-buffer ...) (goto-char ...)
(set-marker ... ...)) (process-kill-without-query proc)
(set-process-sentinel proc (function ange-ftp-process-sentinel))
(set-process-filter proc (function ange-ftp-process-filter)) (when (eq
system-type ...) (set-process-coding-system proc ...)
(process-send-string proc "help foo\n")) (accept-process-output proc)
proc)
  ange-ftp-start-process("clotho" "nagaoka" "*ftp nagaoka@clotho*")
  (setq proc (ange-ftp-start-process host user name))
  (let ((pass ...) (account ...)) (setq proc (ange-ftp-start-process
host user name)) (save-match-data (if ... ... ...)
(ange-ftp-guess-hash-mark-size proc) (ange-ftp-guess-host-type host
user) (when ange-ftp-try-passive-mode ...) (run-hooks ...)))
  (if (and proc (memq ... ...)) proc (if proc (delete-process proc))
(let (... ...) (setq proc ...) (save-match-data ... ... ... ... ...))
proc)
  (let* ((name ...) (proc ...)) (if (and proc ...) proc (if proc ...)
(let ... ... ...) proc))
  ange-ftp-get-process("clotho" "nagaoka")
  (and user (ange-ftp-get-process host user) (eq host ange-ftp-host-cache))
  (cond ((null host) (quote unix)) ((eq host ange-ftp-host-cache)
ange-ftp-host-type-cache) ((and user ... ...)
ange-ftp-host-type-cache) (t (setq ange-ftp-host-cache host
ange-ftp-host-type-cache ...)))
  ange-ftp-host-type("clotho" "nagaoka")
  (let* ((host-type ...) (fix-name-func ...) (key ...) (res ...)) (or
res (progn ... ... ... res)))
  ange-ftp-expand-dir("clotho" "nagaoka" "~")
  (let* ((tilda ...) (rest ...) (dir ...)) (if dir (setq name ...)
(error "User \"%s\" is not known" ...)))
  (cond ((string-match "^/" name) name) ((string-match "^~[^/]*" name)
(let* ... ...)) (t (let ... ...)))
  (let ((host ...) (user ...) (name ...)) (cond (... name) (... ...)
(t ...)) (if (not ...) (progn ... ...))
(ange-ftp-replace-name-component n name))
  (if parsed (let (... ... ...) (cond ... ... ...) (if ... ...)
(ange-ftp-replace-name-component n name)) (if (eq ... 47)
(ange-ftp-real-expand-file-name n) (ange-ftp-real-expand-file-name ...
...)))
  (let ((parsed ...)) (if parsed (let ... ... ... ...) (if ... ... ...)))
  ange-ftp-canonize-filename("/clotho:~/")
  (cond ((eq ... 126) (ange-ftp-real-expand-file-name name)) ((eq ...
47) (ange-ftp-canonize-filename name)) ((and ... ...)
(ange-ftp-canonize-filename name)) ((and ... ...)
(ange-ftp-real-expand-file-name name default)) ((zerop ...)
(ange-ftp-canonize-filename default)) ((ange-ftp-canonize-filename
...)))
  (progn (setq default (or default default-directory)) (cond (... ...)
(... ...) (... ...) (... ...) (... ...) (...)))
  (unwind-protect (progn (setq default ...) (cond ... ... ... ... ...
...)) (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 (setq default (or default default-directory)) (cond
(... ...) (... ...) (... ...) (... ...) (... ...) (...)))
  ange-ftp-expand-file-name("/clotho:~/" "~/")
  apply(ange-ftp-expand-file-name ("/clotho:~/" "~/"))
  (if fn (apply fn args) (ange-ftp-run-real-handler operation args))
  (let ((fn ...)) (if fn (apply fn args) (ange-ftp-run-real-handler
operation args)))
  ange-ftp-hook-function(expand-file-name "/clotho:~/" "~/")
  read-file-name-internal("/clotho:~/" "~/" nil)
  minibuffer-complete()
* call-interactively(minibuffer-complete)
* call-interactively(find-file)


> (locate-library "ange-ftp.el")
>
> の評価の結果も見せてください。

"c:/Meadow/lisp/net/ange-ftp.el"
となりました。


--
  <a.nagaok@xxxxxxxxx>
    長岡　暁弘(Akihiro NAGAOKA)