changeset 17927:5edb7ca3a2dc

Use punctuation syntax for section sign. Handle multibyte characters using set-case-syntax-offset. File renamed from iso02-syn.el.
author Richard M. Stallman <rms@gnu.org>
date Fri, 23 May 1997 04:48:25 +0000
parents 8e3ea3086637
children bfc976ba39f9
files lisp/international/latin-2.el
diffstat 1 files changed, 10 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/latin-2.el	Fri May 23 03:45:19 1997 +0000
+++ b/lisp/international/latin-2.el	Fri May 23 04:48:25 1997 +0000
@@ -1,5 +1,5 @@
-;;; iso02-syn.el --- set up case-conversion and syntax tables for ISO 8859-2
-;;;                   (ISO latin2, i.e. East Block character set)
+;;; latin-2.el --- set up case-conversion and syntax tables for ISO 8859-2
+;;;                   (ISO latin2, i.e. Eastern European character sets)
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
 ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at)
@@ -30,7 +30,11 @@
 
 (require 'case-table)
 
-(let ((downcase (standard-case-table)))
+(let ((downcase (standard-case-table))
+      (set-case-syntax-offset
+       (if enable-multibyte-characters
+	   (- (make-char 'latin-iso8859-2) 128)
+	 0)))
   (set-case-syntax 160 " " downcase)	  ; NBSP (no-break space)
   (set-case-syntax-pair 161 177 downcase) ; A with hook
   (set-case-syntax 162 "w" downcase)	  ; u accent
@@ -38,7 +42,7 @@
   (set-case-syntax 164 "w" downcase)	  ; general currency sign
   (set-case-syntax-pair 165 181 downcase) ; L with v
   (set-case-syntax-pair 166 182 downcase) ; S with acute accent
-  (set-case-syntax 167 "w" downcase)	  ; section sign
+  (set-case-syntax 167 "." downcase)	  ; section sign
   (set-case-syntax 168 "w" downcase)	  ; diaeresis
   (set-case-syntax-pair 169 185 downcase) ; S with v
   (set-case-syntax-pair 170 186 downcase) ; S with cedilla
@@ -89,6 +93,6 @@
   (set-case-syntax 255 "w" downcase)	; dot accent
 )
 
-(provide 'iso02-syn)
+(provide 'latin-2)
 
-;;; iso-syntax.el ends here
+;;; latin-2.el ends here