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

Re: inline image



>>>>> In [emacs-w3m : No.00182] 
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

土> ## 誰か Mule-2.3 では w3m.el がまっとうに動かないのを直してくれないか
土> ## なあ…。

ちょうど今日の休み時間に Mule-2.3@Emacs-19.34 で動くようにしてみた
ところですが、ろくに動作確認してません。

土> うーん、w3m-fontify の中で (set-buffer-multibyte nil) して \xa0 を置換
土> しているのですが、これが Mule-2.3 ではうまく動かないので、これがどうに
土> かならないか、と。

これは難しそうです。

    ;; Decode w3m-specific extended charcters.
    (let ((x (w3m-static-if (boundp 'MULE)
		 mc-flag
	       enable-multibyte-characters)))
      (set-buffer-multibyte nil)
+     (encode-coding-region (point-min) (point-max) w3m-coding-system)
      (dolist (elem w3m-extended-charcters-table)
	(goto-char (point-min))
	(while (search-forward (car elem) nil t)
	  (delete-region (match-beginning 0) (match-end 0))
	  (insert (cdr elem))))
+     (decode-coding-region (point-min) (point-max) w3m-coding-system) 
      (set-buffer-multibyte x))

って感じで回避できるかなとも思うのですが、全く確認してません。
;; 自宅には Mule は無いもので(^^;

ちなみに emacs-19.28 では起動できることだけは確認しましたが、
w3m-form-method あたりのマクロが新しいバッククォート構文のため、
byte-comile は通りませんでした。

2001-03-12  Akihiro Arisawa  <ari@mbf.sphere.ne.jp>

	* w3m.el: Require `poem' when Mule 2.3 is running.
	Bind keywods `:case-ignore' and `:integer' for Mule 2.3.
	(coding-system-category): New alias when Mule 2.3 is running.
	(w3m-arrived-file-coding-system): Fix typo.
	(w3m-entity-alist): Fix for Mule 2.3.
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.95
diff -u -r1.95 w3m.el
--- w3m.el	2001/03/12 09:51:54	1.95
+++ w3m.el	2001/03/12 10:57:01
@@ -50,6 +50,7 @@
 	   (>= emacs-major-version 20))
       (progn
 	(require 'poe)
+	(require 'poem)
 	(require 'pcustom))))
 
 (if (featurep 'xemacs)
@@ -71,6 +72,9 @@
 	  (if (coding-system-p obj) obj))
       (require 'pces)))
 
+(w3m-static-if (not (fboundp 'coding-system-category))
+    (defalias 'coding-system-category 'get-code-mnemonic))
+
 (defconst emacs-w3m-version
   (eval-when-compile
     (let ((rev "$Revision: 1.95 $"))
@@ -208,7 +212,7 @@
   :type 'file)
 
 (defcustom w3m-arrived-file-coding-system
-  (w3m-static-if (boundp 'MULE) '*euc-japan 'euc-japan)
+  (w3m-static-if (boundp 'MULE) '*euc-japan* 'euc-japan)
   "*Coding system for arrived file."
   :group 'w3m
   :type 'symbol)
@@ -627,7 +631,9 @@
 		  (lambda (entity)
 		    (cons (car entity)
 			  (char-to-string
-			   (make-char 'latin-iso8859-1 (cdr entity))))))
+			   (make-char
+			    (if (boundp 'MULE) lc-ltn1 'latin-iso8859-1)
+			    (cdr entity))))))
 		 latin1-entity))))))
 (defconst w3m-entity-regexp
   (eval-when-compile
@@ -686,6 +692,10 @@
   "An alist of CONTENT-TYPE and IMAGE-TYPE.")
 
 (defvar w3m-cid-retrieve-function-alist nil)
+
+(eval-and-compile
+  (defconst :case-ignore ':case-ignore)
+  (defconst :integer ':integer))
 
 (defvar w3m-work-buffer-list nil)
 (defconst w3m-work-buffer-name " *w3m-work*")
-- 
有沢 明宏