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