orgのtableで日本語入れたときに崩れないようにするパッチ

超コネタ。あとで報告しとく。

--- org-table.el.orig	2009-10-28 00:30:10.000000000 +0900
+++ org-table.el	2010-02-01 22:44:15.384200000 +0900
@@ -818,7 +818,7 @@
 	    (progn
 	      (setq s (match-string 1)
 		    o (match-string 0)
-		    l (max 1 (- (match-end 0) (match-beginning 0) 3))
+		    l (max 1 (- (string-width o) 3))
 		    e (not (= (match-beginning 2) (match-end 2))))
 	      (setq f (format (if num " %%%ds %s" " %%-%ds %s")
 			      l (if e "|" (setq org-table-may-need-update t) ""))