changeset 89119:fa0f7b37ba32

Add some non-word syntax cases.
author Dave Love <fx@gnu.org>
date Mon, 23 Sep 2002 22:20:58 +0000
parents 4d1e00ad371c
children ef1d732a0db4
files lisp/international/characters.el
diffstat 1 files changed, 27 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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