[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
BUGS.ja (2)
- From: Takaaki MORIYAMA <taka@xxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Sun, 11 Mar 2001 20:30:51 +0900
- X-ml-name: emacs-w3m
- X-mail-count: 00165
森山です.
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)