diff options
| -rw-r--r-- | lisp/international/latin-5.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/international/latin-5.el b/lisp/international/latin-5.el index 6f65b530187..4b09fad434f 100644 --- a/lisp/international/latin-5.el +++ b/lisp/international/latin-5.el | |||
| @@ -31,7 +31,8 @@ | |||
| 31 | 31 | ||
| 32 | (require 'case-table) | 32 | (require 'case-table) |
| 33 | 33 | ||
| 34 | (let ((tbl (standard-case-table))) | 34 | (let ((tbl (standard-case-table)) |
| 35 | (set-case-syntax-charset 'iso-8859-9)) | ||
| 35 | (set-case-syntax 160 " " tbl) ;no-break space | 36 | (set-case-syntax 160 " " tbl) ;no-break space |
| 36 | (set-case-syntax 161 "." tbl) ;inverted exclamation mark | 37 | (set-case-syntax 161 "." tbl) ;inverted exclamation mark |
| 37 | (set-case-syntax 162 "w" tbl) ;cent sign | 38 | (set-case-syntax 162 "w" tbl) ;cent sign |
| @@ -102,11 +103,6 @@ | |||
| 102 | (set-case-syntax 253 "w" tbl) ;latin small letter i dotless | 103 | (set-case-syntax 253 "w" tbl) ;latin small letter i dotless |
| 103 | (set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis | 104 | (set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis |
| 104 | 105 | ||
| 105 | ;; When preloading this file, don't provide the feature. | ||
| 106 | ;; Explicit `require' is used to load this for 8-bit characters. | ||
| 107 | (or set-case-syntax-set-multibyte | ||
| 108 | (provide 'latin-5)) | ||
| 109 | |||
| 110 | ;;; Don't compile this file: src/Makefile.in instructs make-docfile | 106 | ;;; Don't compile this file: src/Makefile.in instructs make-docfile |
| 111 | ;;; to look at the .el file! | 107 | ;;; to look at the .el file! |
| 112 | ;;; Local Variables: | 108 | ;;; Local Variables: |