[Date Prev][Date Next][Thread Prev][Thread Next][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*")
--
有沢 明宏