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

BUGS.ja (2)



森山です. 

BUGS.ja の(2)なんですが, w3m では \200 の部分はスペースに置き変わって
いるようなので, 以下のパッチのように対応するのではだめでしょうか? 

w3m-fontify の Decode w3m-specific extended charcters. の部分を
タグが処理される前に移動させているのですが, それによる弊害があるのか
どうか分かってません ^^;;

-----
  森山 高明 (^^)/○〜○
  mailto: taka@airlab.cs.ritsumei.ac.jp
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.90
diff -u -p -u -r1.90 w3m.el
--- w3m.el	2001/03/10 02:48:52	1.90
+++ w3m.el	2001/03/11 11:19:05
@@ -567,7 +567,8 @@ See also `w3m-search-engine-alist'."
   :type 'hook)
 
 (defconst w3m-extended-charcters-table
-  '(("\xa0" . " ")))
+  '(("\xa0" . " ")
+    ("\x80" . " ")))
 
 (eval-and-compile
   (defconst w3m-entity-alist	  ; html character entities and values
@@ -1352,6 +1353,17 @@ If second optional argument NO-CACHE is 
 	   (setq start (match-beginning 0))
 	   (search-forward "</title>" nil t)
 	   (delete-region start (match-end 0))))
+    ;; Decode w3m-specific extended charcters.
+    (let ((x (w3m-static-if (boundp 'MULE)
+		 mc-flag
+	       enable-multibyte-characters)))
+      (set-buffer-multibyte nil)
+      (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))))
+      (set-buffer-multibyte x))
     (w3m-fontify-bold)
     (w3m-fontify-underline)
     (w3m-fontify-anchors)
@@ -1369,17 +1381,6 @@ If second optional argument NO-CACHE is 
 	(setq prop (text-properties-at (match-beginning 0)))
 	(replace-match (w3m-entity-value (match-string 1)) nil t)
 	(if prop (add-text-properties (match-beginning 0) (point) prop))))
-    ;; Decode w3m-specific extended charcters.
-    (let ((x (w3m-static-if (boundp 'MULE)
-		 mc-flag
-	       enable-multibyte-characters)))
-      (set-buffer-multibyte nil)
-      (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))))
-      (set-buffer-multibyte x))
     (goto-char (point-min))
     (if w3m-delete-duplicated-empty-lines
 	(while (re-search-forward "^[ \t]*\n\\([ \t]*\n\\)+" nil t)