35 |
|
|
36 |
(require 'case-table) |
(require 'case-table) |
37 |
|
|
38 |
(let ((tbl (standard-case-table)) |
(let ((tbl (standard-case-table))) |
|
(set-case-syntax-offset |
|
|
(if set-case-syntax-set-multibyte |
|
|
(- (make-char 'latin-iso8859-1) 128) |
|
|
0))) |
|
39 |
(set-case-syntax 160 " " tbl) ;no-break space |
(set-case-syntax 160 " " tbl) ;no-break space |
40 |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
41 |
(set-case-syntax 162 "w" tbl) ;cent sign |
(set-case-syntax 162 "w" tbl) ;cent sign |