35 |
|
|
36 |
(require 'case-table) |
(require 'case-table) |
37 |
|
|
38 |
(let ((tbl (standard-case-table))) |
(let ((tbl (standard-case-table)) |
39 |
|
(set-case-syntax-charset 'iso-8859-1)) |
40 |
(set-case-syntax 160 " " tbl) ;no-break space |
(set-case-syntax 160 " " tbl) ;no-break space |
41 |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
42 |
(set-case-syntax 162 "w" tbl) ;cent sign |
(set-case-syntax 162 "w" tbl) ;cent sign |
103 |
(set-case-syntax 247 "_" tbl) ;division sign |
(set-case-syntax 247 "_" tbl) ;division sign |
104 |
(set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis |
(set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis |
105 |
|
|
|
;; 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-1)) |
|
|
|
|
106 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
107 |
;;; to look at the .el file! |
;;; to look at the .el file! |
108 |
;;; Local Variables: |
;;; Local Variables: |