Skip to content

GitLab

Commit 9239a281 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Bind set-case-syntax-charset to iso-8859-2. Never provide latin-2.

parent 54fd8070
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 6 deletions
lisp/international/latin-2.el
View file @ 9239a281
...@@ -33,7 +33,8 @@ ...@@ -33,7 +33,8 @@
(require 'case-table) (require 'case-table)
(let ((tbl (standard-case-table))) (let ((tbl (standard-case-table))
(set-case-syntax-charset 'iso-8859-2))
(set-case-syntax 160 " " tbl) ;no-break space (set-case-syntax 160 " " tbl) ;no-break space
(set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek
(set-case-syntax 162 "w" tbl) ;breve (set-case-syntax 162 "w" tbl) ;breve
...@@ -91,11 +92,6 @@ ...@@ -91,11 +92,6 @@
(set-case-syntax 247 "_" tbl) ;division sign (set-case-syntax 247 "_" tbl) ;division sign
(set-case-syntax 255 "w" tbl)) ;dot above (set-case-syntax 255 "w" tbl)) ;dot above
;; 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-2))
;;; Don't compile this file: src/Makefile.in instructs make-docfile ;;; Don't compile this file: src/Makefile.in instructs make-docfile
;;; to look at the .el file! ;;; to look at the .el file!
;;; Local Variables: ;;; Local Variables:
......
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