[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: Problem report 

>> On Mon, 29 Oct 2001 18:11:23 +0900
>> 「杉」== sugiyama@ae.advantest.co.jp (Takenobu Sugiyama) said as follows:

土> これも、w3m-type の自動判定部分が邪魔をしている可能性が高いと思い
土> ます。こちらに関しては、以下のパッチで直ると思うのですが、どうでしょ
土> うか?

杉> こちらは変化がありませんでした。

うーん。まことに申し訳ありませんが、添付した S 式を評価[*]すると、ポッ
プアップされるはずの *TEST* バッファの内容を送っていただけないででしょ
うか。宜しくお願いします。

[*] 最後の括弧の後ろにカーソルを移動して C-x C-e (または M-x
    eval-last-sexp RET)と入力すると、評価できます。

(with-current-buffer (get-buffer-create "*TEST*")
  (erase-buffer)
  (pop-to-buffer (current-buffer))
  (require 'w3m)
  (insert
   "Internal code="
   (prin1-to-string
    (let ((str
	   (eval-when-compile
	     (format
	      (concat
	       "<!doctype html public \"-//W3C//DTD HTML 3.2//EN\">"
	       "<html><head><meta http-equiv=\"Content-Type\" "
	       "content=\"text/html; charset=ISO-2022-JP\">"
	       "</head><body>%s</body>\n")
	      (string 27 36 66 52 65 59 122 27 40 66)))))
      (with-temp-buffer
	(set-buffer-multibyte nil)
	(insert str)
	(let ((coding-system-for-write 'binary)
	      (coding-system-for-read 'binary)
	      (default-process-coding-system (cons 'binary 'binary)))
	  (call-process-region (point-min) (point-max) w3m-command
			       t t nil "-T" "text/html" "-dump")
	  (append (buffer-string) nil)))))
   "\nw3m-profile-directory=" w3m-profile-directory
   "\nw3m-bookmark-file=" w3m-bookmark-file
   "\n"))

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )