Mercurial > emacs
changeset 88409:8827e60c74c7
Don't bind set-case-syntax-offset.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 01 Mar 2002 02:12:05 +0000 |
| parents | 4135242fe433 |
| children | 39de3b4b6fc7 |
| files | lisp/international/latin-1.el lisp/international/latin-2.el lisp/international/latin-3.el lisp/international/latin-4.el lisp/international/latin-5.el lisp/international/latin-8.el lisp/international/latin-9.el |
| diffstat | 7 files changed, 7 insertions(+), 35 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/latin-1.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-1.el Fri Mar 01 02:12:05 2002 +0000 @@ -35,11 +35,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-1) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 161 "." tbl) ;inverted exclamation mark (set-case-syntax 162 "w" tbl) ;cent sign
--- a/lisp/international/latin-2.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-2.el Fri Mar 01 02:12:05 2002 +0000 @@ -33,11 +33,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-2) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek (set-case-syntax 162 "w" tbl) ;breve
--- a/lisp/international/latin-3.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-3.el Fri Mar 01 02:12:05 2002 +0000 @@ -32,11 +32,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-3) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax-pair 161 177 tbl) ;latin letter h with stroke (set-case-syntax 162 "w" tbl) ;breve
--- a/lisp/international/latin-4.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-4.el Fri Mar 01 02:12:05 2002 +0000 @@ -31,11 +31,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-4) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek (set-case-syntax 162 "w" tbl) ;latin letter kra
--- a/lisp/international/latin-5.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-5.el Fri Mar 01 02:12:05 2002 +0000 @@ -31,11 +31,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-9) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 161 "." tbl) ;inverted exclamation mark (set-case-syntax 162 "w" tbl) ;cent sign
--- a/lisp/international/latin-8.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-8.el Fri Mar 01 02:12:05 2002 +0000 @@ -42,11 +42,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-14) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax-pair 161 162 tbl) ;latin letter b with dot above * (set-case-syntax 163 "w" tbl) ;pound sign (set-case-syntax-pair 164 165 tbl) ;latin letter c with dot above *
--- a/lisp/international/latin-9.el Fri Mar 01 02:09:14 2002 +0000 +++ b/lisp/international/latin-9.el Fri Mar 01 02:12:05 2002 +0000 @@ -45,11 +45,7 @@ (require 'case-table) -(let ((tbl (standard-case-table)) - (set-case-syntax-offset - (if set-case-syntax-set-multibyte - (- (make-char 'latin-iso8859-15) 128) - 0))) +(let ((tbl (standard-case-table))) (set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 161 "." tbl) ;inverted exclamation mark (set-case-syntax 162 "w" tbl) ;cent sign