Add some non-word syntax cases.

lisp/ChangeLog

 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>

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