Mercurial > emacs
comparison lisp/international/latin-1.el @ 60532:9d834e1613df
Set case and syntax for 255 only if
set-case-syntax-set-multibyte is nil.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 09 Mar 2005 01:27:09 +0000 |
| parents | 695cf19ef79e |
| children | cc32b1ad8413 |
comparison
equal
deleted
inserted
replaced
| 60531:ad828b7dfd47 | 60532:9d834e1613df |
|---|---|
| 102 (set-case-syntax-pair 220 252 tbl) ;latin letter u with diaeresis | 102 (set-case-syntax-pair 220 252 tbl) ;latin letter u with diaeresis |
| 103 (set-case-syntax-pair 221 253 tbl) ;latin letter y with acute | 103 (set-case-syntax-pair 221 253 tbl) ;latin letter y with acute |
| 104 (set-case-syntax-pair 222 254 tbl) ;latin letter thorn (Icelandic) | 104 (set-case-syntax-pair 222 254 tbl) ;latin letter thorn (Icelandic) |
| 105 (set-case-syntax 223 "w" tbl) ;latin small letter sharp s (German) | 105 (set-case-syntax 223 "w" tbl) ;latin small letter sharp s (German) |
| 106 (set-case-syntax 247 "_" tbl) ;division sign | 106 (set-case-syntax 247 "_" tbl) ;division sign |
| 107 (set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis | 107 ;; The following setting should be suppressed when we are loading |
| 108 ;; this file for setting syntax of multibyte characters. | |
| 109 (or set-case-syntax-set-multibyte | |
| 110 (set-case-syntax 255 "w" tbl))) ;latin small letter y with diaeresis | |
| 108 | 111 |
| 109 ;; When preloading this file, don't provide the feature. | 112 ;; When preloading this file, don't provide the feature. |
| 110 ;; Explicit `require' is used to load this for 8-bit characters. | 113 ;; Explicit `require' is used to load this for 8-bit characters. |
| 111 (or set-case-syntax-set-multibyte | 114 (or set-case-syntax-set-multibyte |
| 112 (provide 'latin-1)) | 115 (provide 'latin-1)) |