mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

Add some non-word syntax cases.

Browse source
This commit is contained in:
Dave Love 2002-09-23 22:21:46 +00:00
parent 9ecb9393d6
commit b427c97eb7
2 changed files with 28 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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>

28
lisp/international/characters.el
View file

@ -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