32 |
|
|
33 |
(require 'case-table) |
(require 'case-table) |
34 |
|
|
35 |
(let ((tbl (standard-case-table)) |
(let ((tbl (standard-case-table))) |
|
(set-case-syntax-offset |
|
|
(if set-case-syntax-set-multibyte |
|
|
(- (make-char 'latin-iso8859-3) 128) |
|
|
0))) |
|
36 |
(set-case-syntax 160 " " tbl) ;no-break space |
(set-case-syntax 160 " " tbl) ;no-break space |
37 |
(set-case-syntax-pair 161 177 tbl) ;latin letter h with stroke |
(set-case-syntax-pair 161 177 tbl) ;latin letter h with stroke |
38 |
(set-case-syntax 162 "w" tbl) ;breve |
(set-case-syntax 162 "w" tbl) ;breve |