From: tomo <tomo>
Date: Wed, 2 Oct 2002 06:43:34 +0000 (+0000)
Subject: Add autoload cookies.
X-Git-Tag: chise-base-0_23~70
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dd59abbca2ff6df7b2d421c811fc2fe676a1045f;p=chise%2Ftomoyo-tools.git

Add autoload cookies.
---

diff --git a/dump-tables.el b/dump-tables.el
index 7d96563..8531e53 100644
--- a/dump-tables.el
+++ b/dump-tables.el
@@ -1,3 +1,30 @@
+;;; dump-tables.el --- Dump utility of mapping tables
+
+;; Copyright (C) 2002 MORIOKA Tomohiko
+
+;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
+;; Keywords: Ideographs, Character Database, UTF-2000, UCS, Unicode
+
+;; This file is a part of tomoyo-tools.
+
+;; This program 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.
+
+;; This program 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 this program; see the file COPYING.  If not, write to
+;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+;;;###autoload
 (defun dump-jis-x0208-1990-to-ucs-table (filename)
   (interactive "Fdump J90-to-UCS : ")
   (if (file-directory-p filename)
@@ -26,6 +53,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-jis-x0212-to-ucs-table (filename)
   (interactive "Fdump JSP-to-UCS : ")
   (if (file-directory-p filename)
@@ -54,6 +82,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-jis-x0213-1-to-ucs-table (filename)
   (interactive "Fdump JX1-to-UCS : ")
   (if (file-directory-p filename)
@@ -82,6 +111,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-jis-x0213-2-to-ucs-table (filename)
   (interactive "Fdump JX2-to-UCS : ")
   (if (file-directory-p filename)
@@ -110,6 +140,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-cns-11643-3-to-ucs-table (filename)
   (interactive "Fdump C3-to-UCS : ")
   (if (file-directory-p filename)
@@ -138,6 +169,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-cns-11643-4-to-ucs-table (filename)
   (interactive "Fdump C4-to-UCS : ")
   (if (file-directory-p filename)
@@ -166,6 +198,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-big5-to-ucs-table (filename)
   (interactive "Fdump B-to-UCS : ")
   (if (file-directory-p filename)
@@ -194,6 +227,7 @@
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
 
+;;;###autoload
 (defun dump-jef-china3-to-ucs-table (filename)
   (interactive "Fdump JC3-to-UCS : ")
   (if (file-directory-p filename)
@@ -215,3 +249,11 @@
 	  (setq cell (1+ cell)))
 	(setq row (1+ row))))
     (write-region (point-min)(point-max) filename)))
+
+
+;;; @ End.
+;;;
+
+(provide 'dump-tables)
+
+;;; dump-tables.el ends here