Re: compile problem

[Takenobu Sugiyama <sugiyama@xxxxxxxxxxxxxxxxxx>]

>>>>> In [emacs-w3m : No.04585] 
>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:

山岡さん> ぼくのところでは /bin/sh を rename したくらいでは再現できなかっ
山岡さん> たので、他に助っ人が現れない場合は以下を試してみて下さい。

山岡さん>   emacs-w3m のディレクトリ (w3m.el などがある場所) に移動

山岡さん>   Emacs を -q -no-site-file オプションで起動

山岡さん>   M-: (setq debug-on-error t)<RET>

山岡さん>   M-x load-file<RET>w3mhack.el<RET>

山岡さん>   C-x C-f shimbun/nnshimbun.el<RET>

山岡さん>   (eval-when-compile (require 'cl)) の行に移動

山岡さん>   C-<SPC> C-n M-x eval-region<RET>
山岡さん>     これをエラーが起きるまで、または (require 'shimbun) の行まで
山岡さん>     繰り返す

Meadow1.15で、ショートカットの作業ディレクトリを
emacs-w3mのところにして、起動オプションを指定して
やってみたところ、こんなBacktraceとなりました。

Signaling: (wrong-type-argument stringp nil)
  call-process-region(1 166 nil "c:/tmp/ema85239" t nil "-T" "text/html" "-halfdump")
  (let ((coding-system-for-write ...) (coding-system-for-read ...) (default-process-coding-system ...)) (call-process-region (point-min) (point-max) w3m-command t t nil "-T" "text/html" "-halfdump") (goto-char (point-min)) (skip-chars-forward "a-zA-Z<>/_ \n") (string= (buffer-substring ... ...) (string 180 193 187 250)))
  (save-current-buffer (set-buffer temp-buffer) (set-buffer-multibyte nil) (insert str) (let (... ... ...) (call-process-region ... ... w3m-command t t nil "-T" "text/html" "-halfdump") (goto-char ...) (skip-chars-forward "a-zA-Z<>/_ \n") (string= ... ...)))
  (with-current-buffer temp-buffer (set-buffer-multibyte nil) (insert str) (let (... ... ...) (call-process-region ... ... w3m-command t t nil "-T" "text/html" "-halfdump") (goto-char ...) (skip-chars-forward "a-zA-Z<>/_ \n") (string= ... ...)))
  (unwind-protect (with-current-buffer temp-buffer (set-buffer-multibyte nil) (insert str) (let ... ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ...) (and ... ...)))
  (with-temp-buffer (set-buffer-multibyte nil) (insert str) (let (... ... ...) (call-process-region ... ... w3m-command t t nil "-T" "text/html" "-halfdump") (goto-char ...) (skip-chars-forward "a-zA-Z<>/_ \n") (string= ... ...)))
  (let ((str ...)) (with-temp-buffer (set-buffer-multibyte nil) (insert str) (let ... ... ... ... ...)))
  (or (memq w3m-type (quote ...)) (let (...) (with-temp-buffer ... ... ...)))
  (and (not noninteractive) (featurep (quote mule)) (or (memq w3m-type ...) (let ... ...)))
  (defvar w3m-accept-japanese-characters (and (not noninteractive) (featurep ...) (or ... ...)) "Non-nil means that `w3m-command' accepts Japanese characters.")
  eval-buffer(#<buffer  *load*<2>> nil "w3m")
  load-with-code-conversion("c:/home/emacs-w3m/w3m.el" "w3m" nil t)
  require(w3m)
  eval-buffer(#<buffer  *load*> nil "shimbun")
  load-with-code-conversion("c:/home/emacs-w3m/shimbun/shimbun.el" "shimbun" nil t)
  require(shimbun)
  eval-region(1930 1949)
  call-interactively(eval-region)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)

--
杉山 武信