[Emacs-diffs] emacs/lisp/international characters.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/02/12 05:45:02

Modified files:
        lisp/international: characters.el 

Log message:
        (?.): New character category for
        Base characters.  Set them in the standard category table.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/characters.el?cvsroot=emacs&r1=1.82&r2=1.83

Patches:
Index: characters.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/characters.el,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -b -r1.82 -r1.83
--- characters.el       5 Jan 2009 03:22:20 -0000       1.82
+++ characters.el       12 Feb 2009 05:45:02 -0000      1.83
@@ -110,9 +110,11 @@
 (define-category ?< "Not at eol
 A character which can't be placed at end of line.")
 
-;; Combining
+;; Base and Combining
+(define-category ?. "Base
+Base characters (Unicode General Category L,N,P,S,Zs)")
 (define-category ?^ "Combining
-Combining diacritic or mark")
+Combining diacritic or mark (Unicode General Category M")
 
 ;;; Setting syntax and category.
 
@@ -1049,7 +1051,6 @@
   (setq char-width-table (char-table-parent cjk-char-width-table)))
 
 (optimize-char-table (standard-case-table))
-(optimize-char-table (standard-category-table))
 (optimize-char-table (standard-syntax-table))
 
 
@@ -1182,6 +1183,15 @@
     table))
 
 (setq unicode-category-table (build-unicode-category-table))
+(map-char-table #'(lambda (key val)
+                   (if (and val
+                            (or (and (/= (aref (symbol-name val) 0) ?M)
+                                     (/= (aref (symbol-name val) 0) ?C))
+                                (eq val 'Zs)))
+                       (modify-category-entry key ?.)))
+               unicode-category-table)
+
+(optimize-char-table (standard-category-table))
 
 
 ;;; Setting word boundary.