From b50a2f2edfb9264721e98b849d34712d14657c70 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 25 Feb 2003 06:42:06 +0000 Subject: [PATCH] (insert-char-data): Don't use `tabify'. --- lisp/utf-2000/char-db-util.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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 -- 1.7.10.4