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

Re: Problem report 

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

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

杉> 評価してみると、
杉> Symbol's value as variable is void: w3m-bookmark-file
杉> となってしまいました。

杉> install の問題でしょうか？

再々すみません。私の送った式が少し間違ってました。正しくは以下の通りで
す。

(with-current-buffer (get-buffer-create "*TEST*")
  (erase-buffer)
  (pop-to-buffer (current-buffer))
  (require 'w3m)
  (require 'w3m-bookmark) ;; <- この1行が抜けていました
  (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"))

ちなみに、私の環境では以下のような結果が得られます。

    Internal code=(180 193 187 250 10)
    w3m-profile-directory=~/.w3m
    w3m-bookmark-file=/home/tsuchiya/.w3m/bookmark.html

-- 
土屋 雅稔  ( TSUCHIYA Masatoshi )