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

Re: テーブルの枠がずれる



>>>>> 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

-- 
有沢 明宏