From 1b47433901180fe96b619732fbd0d85494902f5a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 16 Jul 2002 12:14:57 +0000 Subject: [PATCH] Require `chise'. --- lisp/utf-2000/close-cdb.el | 37 ++++++++++++++++++++++++++++++++----- 1 file changed, 32 insertions(+), 5 deletions(-) diff --git a/lisp/utf-2000/close-cdb.el b/lisp/utf-2000/close-cdb.el index ec61a47..8d42524 100644 --- a/lisp/utf-2000/close-cdb.el +++ b/lisp/utf-2000/close-cdb.el @@ -1,9 +1,36 @@ -(cond - ((featurep 'chise) - (dolist (attribute (char-attribute-list)) - (close-char-attribute-table attribute)) - )) +;;; close-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: + +(require 'chise) ; to check external-database feature is available + +(dolist (attribute (char-attribute-list)) + (close-char-attribute-table attribute)) (garbage-collect) (setq char-db-stingy-mode nil) + +;;; close-cdb.el ends here -- 1.7.10.4