1089 |
(setq c #x2000) |
(setq c #x2000) |
1090 |
(while (<= c #x200b) |
(while (<= c #x200b) |
1091 |
(set-case-syntax (decode-char 'ucs c) " " tbl) |
(set-case-syntax (decode-char 'ucs c) " " tbl) |
1092 |
(setq c (decode-char 'ucs (1+ c)))) |
(setq c (1+ c))) |
1093 |
(setq c #x2010) |
(setq c #x2010) |
1094 |
|
(while (<= c #x2016) |
1095 |
|
(set-case-syntax (decode-char 'ucs c) "_" tbl) |
1096 |
|
(setq c (1+ c))) |
1097 |
|
;; Punctuation syntax for quotation marks (like `) |
1098 |
|
(while (<= c #x201f) |
1099 |
|
(set-case-syntax (decode-char 'ucs c) "." tbl) |
1100 |
|
(setq c (1+ c))) |
1101 |
(while (<= c #x2027) |
(while (<= c #x2027) |
1102 |
(set-case-syntax (decode-char 'ucs c) "_" tbl) |
(set-case-syntax (decode-char 'ucs c) "_" tbl) |
1103 |
(setq c (decode-char 'ucs (1+ c)))) |
(setq c (1+ c))) |
1104 |
|
|
1105 |
;; Roman numerals |
;; Roman numerals |
1106 |
(setq c #x2160) |
(setq c #x2160) |