>>>>> 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
-- 有沢 明宏