Commit b427c97e authored by Dave Love's avatar Dave Love
Browse files

Add some non-word syntax cases.

parent 9ecb9393
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>
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment