Add some non-word syntax cases.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37c0b1512435b68f8abffad209243fef803d246f..706e3aa5c2083ac7f530bbb176be230afb8adc3f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,7 @@
 2002-09-23  Dave Love  <fx@gnu.org>
 
        * international/characters.el: Don't set char width of CJK
-       charsets generally.
+       charsets generally.  Add some non-word syntax cases.
        (korean-ksc5601): Fix ranges with symbol syntax.
 
 2002-09-14  Dave Love  <fx@gnu.org>

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index f5dfccf07cad5aa89de1c81509d19e5e8374c70a..36a67cb5137f61951c4251f6fa815359019233ac 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -661,10 +661,16 @@
   (while (<= c #x200b)
     (set-case-syntax c " " tbl)
     (setq c (1+ c)))
-  (setq c #x2010)
+  (while (<= c #x200F)
+    (set-case-syntax c "." tbl)
+    (setq c (1+ c)))
+  ;; Fixme: These aren't all right:
   (while (<= c #x2027)
     (set-case-syntax c "_" tbl)
     (setq c (1+ c)))
+  (while (<= c #x206F)
+    (set-case-syntax c "." tbl)
+    (setq c (1+ c)))
 
   ;; Roman numerals
   (setq c #x2160)
@@ -672,6 +678,24 @@
     (set-case-syntax-pair c (+ c #x10) tbl)
     (setq c (1+ c)))
 
+  ;; Arrows
+  (setq c #x2190)
+  (while (<= c #c21FF)
+    (set-case-syntax-pair c "." tbl)
+    (setq c (1+ c)))
+  ;; Mathematical Operators
+  (while (<= c #x22FF)
+    (set-case-syntax-pair c "." tbl)
+    (setq c (1+ c)))
+  ;; Miscellaneous Technical
+  (while (<= c #x23FF)
+    (set-case-syntax-pair c "." tbl)
+    (setq c (1+ c)))
+  ;; Control Pictures
+  (while (<= c #x243F)
+    (set-case-syntax-pair c "_" tbl)
+    (set c (1+ c)))
+
   ;; Circled Latin
   (setq c #x24b6)
   (while (<= c #x24cf)
@@ -809,6 +833,8 @@
 (optimize-char-table (standard-category-table))
 (optimize-char-table (standard-syntax-table))
 
+;; The Unicode blocks actually extend past some of these ranges with
+;; undefined codepoints.
 (let ((script-list nil))
   (dolist
       (elt