diff options
| author | Kenichi Handa <handa@m17n.org> | 2002-10-01 01:32:44 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2002-10-01 01:32:44 +0000 |
| commit | 3fec4a06bb5ea8cda005cd77fc9b88d66fa1e946 (patch) | |
| tree | cffe287e33c60ec8ce219d688ab0bc3502405854 | |
| parent | 8deeeb61d844da32f52c33add96633ba58917395 (diff) | |
| download | emacs-3fec4a06bb5ea8cda005cd77fc9b88d66fa1e946.tar.gz | |
Bind set-case-syntax-charset to iso-8859-15. Never provide latin-9.
| -rw-r--r-- | lisp/international/latin-9.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/international/latin-9.el b/lisp/international/latin-9.el index 964ec3c597b..d66734cdccb 100644 --- a/lisp/international/latin-9.el +++ b/lisp/international/latin-9.el @@ -45,7 +45,8 @@ (require 'case-table) -(let ((tbl (standard-case-table))) +(let ((tbl (standard-case-table)) + (set-case-syntax-charset 'iso-8859-15)) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 161 "." tbl) ;inverted exclamation mark (set-case-syntax 162 "w" tbl) ;cent sign @@ -108,11 +109,6 @@ (set-case-syntax 223 "w" tbl) ;latin small letter sharp s (set-case-syntax 247 "_" tbl)) ;division sign -;; 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-9)) - ;;; Don't compile this file: src/Makefile.in instructs make-docfile ;;; to look at the .el file! ;;; Local Variables: |