From: Dave Love <fx@gnu.org>
Date: Mon, 23 Sep 2002 22:21:46 +0000 (+0000)
Subject: Add some non-word syntax cases.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b427c97eb754d63f52b752243a30eddacbdac8be;p=emacs.git

Add some non-word syntax cases.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37c0b151243..706e3aa5c20 100644
--- 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 f5dfccf07ca..36a67cb5137 100644
--- 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