From: tomo <tomo>
Date: Tue, 19 Apr 2011 22:08:05 +0000 (+0000)
Subject: update.
X-Git-Tag: r21-4-22-chise-0_25-8^20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=182d3292ce931b618fc2640ec54671df5ab45f1c;p=chise%2Fxemacs-chise.git

update.
---

diff --git a/lisp/utf-2000/ChangeLog b/lisp/utf-2000/ChangeLog
index 5cda54e..080e828 100644
--- a/lisp/utf-2000/ChangeLog
+++ b/lisp/utf-2000/ChangeLog
@@ -1,5 +1,10 @@
 2011-04-19  MORIOKA Tomohiko  <tomo@zinbun.kyoto-u.ac.jp>
 
+	* chise-subr.el (define-char-before): New function.
+	(define-char-after): New function.
+
+2011-04-19  MORIOKA Tomohiko  <tomo@zinbun.kyoto-u.ac.jp>
+
 	* ruimoku6.el: Don't omit `<-subsumptive' features of
 	`=ruimoku-v6' characters.
 
diff --git a/lisp/utf-2000/auto-autoloads.el b/lisp/utf-2000/auto-autoloads.el
index 646b634..2e1655f 100644
--- a/lisp/utf-2000/auto-autoloads.el
+++ b/lisp/utf-2000/auto-autoloads.el
@@ -7,7 +7,7 @@
 
 ;;;***
 
-;;;### (autoloads (chise-string< map-char-family char-id char-ucs char-attribute-name< expand-char-feature-name) "chise-subr" "utf-2000/chise-subr.el")
+;;;### (autoloads (chise-string< define-char-after define-char-before map-char-family char-id char-ucs char-attribute-name< expand-char-feature-name) "chise-subr" "utf-2000/chise-subr.el")
 
 (autoload 'expand-char-feature-name "chise-subr" nil nil nil)
 
@@ -21,6 +21,12 @@ Return code-point of UCS." nil nil)
 
 (autoload 'map-char-family "chise-subr" nil nil nil)
 
+(autoload 'define-char-before "chise-subr" "\
+Define CHAR-SPEC and insert it before NEXT-CHAR." nil nil)
+
+(autoload 'define-char-after "chise-subr" "\
+Define CHAR-SPEC and insert it after PREV-CHAR." nil nil)
+
 (autoload 'chise-string< "chise-subr" nil nil nil)
 
 ;;;***