Mercurial > emacs
changeset 89131:13bec264e345
Bind set-case-syntax-charset to iso-8859-1. Never provide latin-1.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 01 Oct 2002 01:30:52 +0000 |
| parents | e18339404909 |
| children | 5d8eee263d39 |
| files | lisp/international/latin-1.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/latin-1.el Tue Oct 01 01:30:13 2002 +0000 +++ b/lisp/international/latin-1.el Tue Oct 01 01:30:52 2002 +0000 @@ -35,7 +35,8 @@ (require 'case-table) -(let ((tbl (standard-case-table))) +(let ((tbl (standard-case-table)) + (set-case-syntax-charset 'iso-8859-1)) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 161 "." tbl) ;inverted exclamation mark (set-case-syntax 162 "w" tbl) ;cent sign @@ -102,11 +103,6 @@ (set-case-syntax 247 "_" tbl) ;division sign (set-case-syntax 255 "w" tbl)) ;latin small letter y with diaeresis -;; 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)) - ;;; Don't compile this file: src/Makefile.in instructs make-docfile ;;; to look at the .el file! ;;; Local Variables: