From: 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.1 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 + * chise-subr.el (define-char-before): New function. + (define-char-after): New function. + +2011-04-19 MORIOKA Tomohiko + * 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) ;;;***