aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/international/latin-2.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/international/latin-2.el b/lisp/international/latin-2.el
index 62029cdb9b2..0d5bd07c698 100644
--- a/lisp/international/latin-2.el
+++ b/lisp/international/latin-2.el
@@ -1,5 +1,5 @@
1;;; iso02-syn.el --- set up case-conversion and syntax tables for ISO 8859-2 1;;; latin-2.el --- set up case-conversion and syntax tables for ISO 8859-2
2;;; (ISO latin2, i.e. East Block character set) 2;;; (ISO latin2, i.e. Eastern European character sets)
3;; Copyright (C) 1995 Free Software Foundation, Inc. 3;; Copyright (C) 1995 Free Software Foundation, Inc.
4 4
5;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) 5;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at)
@@ -30,7 +30,11 @@
30 30
31(require 'case-table) 31(require 'case-table)
32 32
33(let ((downcase (standard-case-table))) 33(let ((downcase (standard-case-table))
34 (set-case-syntax-offset
35 (if enable-multibyte-characters
36 (- (make-char 'latin-iso8859-2) 128)
37 0)))
34 (set-case-syntax 160 " " downcase) ; NBSP (no-break space) 38 (set-case-syntax 160 " " downcase) ; NBSP (no-break space)
35 (set-case-syntax-pair 161 177 downcase) ; A with hook 39 (set-case-syntax-pair 161 177 downcase) ; A with hook
36 (set-case-syntax 162 "w" downcase) ; u accent 40 (set-case-syntax 162 "w" downcase) ; u accent
@@ -38,7 +42,7 @@
38 (set-case-syntax 164 "w" downcase) ; general currency sign 42 (set-case-syntax 164 "w" downcase) ; general currency sign
39 (set-case-syntax-pair 165 181 downcase) ; L with v 43 (set-case-syntax-pair 165 181 downcase) ; L with v
40 (set-case-syntax-pair 166 182 downcase) ; S with acute accent 44 (set-case-syntax-pair 166 182 downcase) ; S with acute accent
41 (set-case-syntax 167 "w" downcase) ; section sign 45 (set-case-syntax 167 "." downcase) ; section sign
42 (set-case-syntax 168 "w" downcase) ; diaeresis 46 (set-case-syntax 168 "w" downcase) ; diaeresis
43 (set-case-syntax-pair 169 185 downcase) ; S with v 47 (set-case-syntax-pair 169 185 downcase) ; S with v
44 (set-case-syntax-pair 170 186 downcase) ; S with cedilla 48 (set-case-syntax-pair 170 186 downcase) ; S with cedilla
@@ -89,6 +93,6 @@
89 (set-case-syntax 255 "w" downcase) ; dot accent 93 (set-case-syntax 255 "w" downcase) ; dot accent
90) 94)
91 95
92(provide 'iso02-syn) 96(provide 'latin-2)
93 97
94;;; iso-syntax.el ends here 98;;; latin-2.el ends here