Commit 491d068e authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Don't bind set-case-syntax-offset.

parent 2db18278
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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 *
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment