32 |
|
|
33 |
(require 'case-table) |
(require 'case-table) |
34 |
|
|
35 |
(let ((tbl (standard-case-table))) |
(let ((tbl (standard-case-table)) |
36 |
|
(set-case-syntax-charset 'iso-8859-3)) |
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 h with stroke |
(set-case-syntax-pair 161 177 tbl) ;latin letter h with stroke |
39 |
(set-case-syntax 162 "w" tbl) ;breve |
(set-case-syntax 162 "w" tbl) ;breve |
90 |
(set-case-syntax 247 "_" tbl) ;division sign |
(set-case-syntax 247 "_" tbl) ;division sign |
91 |
(set-case-syntax 255 "w" tbl)) ;dot above |
(set-case-syntax 255 "w" tbl)) ;dot above |
92 |
|
|
|
;; When preloading this file, don't provide the feature. |
|
|
;; Explicit `require' is used to load this for 8-bit characters. |
|
|
(or set-case-syntax-set-multibyte |
|
|
(provide 'latin-3)) |
|
|
|
|
93 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
94 |
;;; to look at the .el file! |
;;; to look at the .el file! |
95 |
;;; Local Variables: |
;;; Local Variables: |