From: tomo Date: Tue, 12 Mar 2002 09:54:41 +0000 (+0000) Subject: update. X-Git-Tag: r21-2-44-lazy-n7c X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b7498d9f7c7884d7360596b845053629c1de0451;p=chise%2Fxemacs-chise.git update. --- diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog index 385898c..4785964 100644 --- a/lisp/utf-2000/ChangeLog +++ b/lisp/utf-2000/ChangeLog @@ -1,3 +1,14 @@ +2002-03-12 MORIOKA Tomohiko + + * update-cdb.el: When feature `chise' is not provided, just load + up files defined in `system-char-db-source-file-list'. + (system-char-database-directory): Don't define it when feature + `chise' is not provided. + (file-name-char-attribute-name): Likewise. Don't call + `reset-char-attribute-table' for files in + `system-char-database-directory' when feature `chise' is not + provided. + 2002-03-03 MORIOKA Tomohiko * update-cdb.el: Delete system-char-database-directory before diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el index 147accd..51b98d2 100644 --- a/lisp/utf-2000/update-cdb.el +++ b/lisp/utf-2000/update-cdb.el @@ -1,3 +1,29 @@ +;;; update-cdb.el --- Update and/or setup character attribute database + +;; Copyright (C) 2002 MORIOKA Tomohiko. + +;; Author: MORIOKA Tomohiko +;; Keywords: Character, Database, UTF-2000, Unicode, UCS-4, MULE. + +;; This file is part of XEmacs UTF-2000. + +;; XEmacs UTF-2000 is free software; you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as +;; published by the Free Software Foundation; either version 2, or (at +;; your option) any later version. + +;; XEmacs UTF-2000 is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;; General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with XEmacs UTF-2000; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. + +;;; Code: + (defun delete-file-with-children (filename) (if (file-directory-p filename) (let ((files @@ -63,3 +89,5 @@ )) (garbage-collect) + +;;; update-cdb.el ends here