diff options
author | Eli Zaretskii <eliz@gnu.org> | 2021-01-02 13:36:54 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2021-01-02 13:36:54 +0200 |
commit | 72b048bb9650283f40c93735a5ab50f62e0f4118 (patch) | |
tree | ad20dcc670c24c5ba7288d950aeb82bd54ceb872 /lisp/international/characters.el | |
parent | 70e6c0850eae29eeb2b9a850bcf9023e88caaa7d (diff) | |
download | emacs-72b048bb9650283f40c93735a5ab50f62e0f4118.tar.gz |
Fix last change in characters.el
* lisp/international/characters.el: Adjust syntax of more
characters to follow that of Unicode properties. (Bug#44974)
Diffstat (limited to 'lisp/international/characters.el')
-rw-r--r-- | lisp/international/characters.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 88f2e20dcca..6924e1c06db 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -226,6 +226,7 @@ with L, LRE, or LRO Unicode bidi character type.") ;; JISX0208 +;; Note: Some of these have their syntax updated later below. (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2121 #x227E) (map-charset-chars #'modify-syntax-entry 'japanese-jisx0208 "_" #x2821 #x287E) (let ((chars '(?ー ?゛ ?゜ ?ヽ ?ヾ ?ゝ ?ゞ ?〃 ?仝 ?々 ?〆 ?〇))) @@ -681,6 +682,13 @@ with L, LRE, or LRO Unicode bidi character type.") (set-case-syntax c "." tbl) (setq c (1+ c))) + ;; Ideographic punctuation + (setq c #x3001) + (while (<= c #x3003) + (set-case-syntax c "." tbl) + (setq c (1+ c))) + (set-case-syntax #x30FB "." tbl) + ;; Symbols for Legacy Computing (setq c #x1FB00) (while (<= c #x1FBCA) @@ -698,6 +706,10 @@ with L, LRE, or LRO Unicode bidi character type.") (setq c (1+ c))) (set-case-syntax #xFF04 "_" tbl) (set-case-syntax #xFF0B "_" tbl) + (set-case-syntax #xFF1A "." tbl) + (set-case-syntax #xFF1B "." tbl) + (set-case-syntax #xFF1F "." tbl) + (set-case-syntax #xFF20 "." tbl) (setq c #xFF21) (while (<= c #xFF3A) (modify-category-entry c ?l) |