From afcdd5c84572e7505a4cae7255c8c434d4b57406 Mon Sep 17 00:00:00 2001 From: tomo Date: Sat, 24 Jan 2004 10:07:45 +0000 Subject: [PATCH] Generate "../lisp/utf-2000/cid-conf.el" when char-DB generating stage, and load it when dumping stage. --- lisp/utf-2000/update-cdb.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/update-cdb.el b/lisp/utf-2000/update-cdb.el index bce7fd1..487eb67 100644 --- a/lisp/utf-2000/update-cdb.el +++ b/lisp/utf-2000/update-cdb.el @@ -1,6 +1,6 @@ ;;; update-cdb.el --- Update and/or setup character attribute database -;; Copyright (C) 2002,2003 MORIOKA Tomohiko. +;; Copyright (C) 2002,2003,2004 MORIOKA Tomohiko. ;; Author: MORIOKA Tomohiko ;; Keywords: Character, Database, CHISE, Unicode, UCS-4, MULE. @@ -74,6 +74,14 @@ (dolist (ccs (charset-list)) (save-charset-mapping-table ccs)) + + (with-temp-buffer + (insert + (format + "(setq next-defined-char-id #x%X)\n" + next-defined-char-id)) + (write-region (point-min)(point-max) + "../lisp/utf-2000/cid-conf.el")) ) (t (if (>= (function-max-args 'char-attribute-list) 1) @@ -87,6 +95,7 @@ nil nil t t))) (dolist (ccs (charset-list)) (reset-charset-mapping-table ccs)) + (load "../lisp/utf-2000/cid-conf.el") ))) (t (load "dumped-chars.el") -- 1.7.10.4