From: tomo <tomo>
Date: Tue, 25 Feb 2003 06:42:06 +0000 (+0000)
Subject: (insert-char-data): Don't use `tabify'.
X-Git-Tag: r21-4-10-utf-2000-0_20-11~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b50a2f2edfb9264721e98b849d34712d14657c70;p=chise%2Fxemacs-chise.git

(insert-char-data): Don't use `tabify'.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index c870da8..4d4b40f 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -999,8 +999,15 @@
     (goto-char (point-min))
     (while (re-search-forward "[ \t]+$" nil t)
       (replace-match ""))
+    ;; from tabify.
+    (goto-char (point-min))
+    (while (re-search-forward "[ \t][ \t][ \t]*" nil t)
+      (let ((column (current-column))
+	    (indent-tabs-mode t))
+	(delete-region (match-beginning 0) (point))
+	(indent-to column)))
     (goto-char (point-max))
-    (tabify (point-min)(point-max))
+    ;; (tabify (point-min)(point-max))
     ))
 
 (defun insert-char-data-with-variant (char &optional printable