# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1032819658 0
# Node ID fa0f7b37ba32b658d3c4a3b6e7fa2fd6b1f2d10a
# Parent  4d1e00ad371cf9248c61328d647756bd90cb61d3
Add some non-word syntax cases.

diff -r 4d1e00ad371c -r fa0f7b37ba32 lisp/international/characters.el
--- a/lisp/international/characters.el	Mon Sep 23 19:19:34 2002 +0000
+++ b/lisp/international/characters.el	Mon Sep 23 22:20:58 2002 +0000
@@ -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