>>>>> In [emacs-w3m : No.03677] >>>>> yamasaki <tyms_ml@plum.freemail.ne.jp> wrote: > # m17n では枠が罫線でなく +, -, | になってしまうのですね. ふと気になったので調べてみたところ、通常の出力時は display_charset に 応じて "┼" などを使ってくれるのですが、-halfdump 時は ASCII で出力さ れるようです。 その際、<_SYMBOL> というタグで括ってくれるようですので、添付のように して置換するというのはどうでしょうか。 ;; 特に反対などなければ、後日 commit します。
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.695
diff -u -r1.695 w3m.el
--- w3m.el 2002/07/11 10:23:54 1.695
+++ w3m.el 2002/07/19 06:04:29
@@ -129,7 +129,8 @@
(autoload 'w3m-cookie "w3m-cookie")
(autoload 'w3m-about-cookie "w3m-cookie")
(autoload 'w3m-cookie-shutdown "w3m-cookie" nil t)
- (autoload 'report-emacs-w3m-bug "w3m-bug" nil t))
+ (autoload 'report-emacs-w3m-bug "w3m-bug" nil t)
+ (autoload 'w3m-replace-symbol "w3m-symbol" nil t))
;; Avoid byte-compile warnings.
(eval-when-compile
@@ -885,6 +886,12 @@
:type 'boolean
:require 'w3m-filter)
+(defcustom w3m-use-symbol (eq w3m-type 'w3m-m17n)
+ "*Non-nil means replacing symbol."
+ :group 'w3m
+ :type 'boolean
+ :require 'w3m-symbol)
+
(defcustom w3m-edit-function 'find-file
"*Function of editing local file."
:group 'w3m
@@ -2386,6 +2393,8 @@
(when w3m-use-form
(w3m-fontify-forms))
(w3m-fontify-images)
+ (when w3m-use-symbol
+ (w3m-replace-symbol))
;; Remove other markups.
(goto-char (point-min))
(while (re-search-forward "</?[A-Za-z_][^>]*>" nil t)
Attachment:
w3m-symbol.el
Description: Binary data
-- 有沢 明宏