Mercurial > emacs

comparison lisp/international/latin-2.el @ 17927:5edb7ca3a2dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 83f275dcd93a
children 621d1db5845b
comparison
equal deleted inserted replaced
17926:8e3ea3086637 17927:5edb7ca3a2dc
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)
6 ;; Keywords: i18n 6 ;; Keywords: i18n
7 7
28 28
29 ;;; Code: 29 ;;; Code:
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
37 (set-case-syntax-pair 163 179 downcase) ; L with slash 41 (set-case-syntax-pair 163 179 downcase) ; L with slash
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
45 (set-case-syntax-pair 171 187 downcase) ; T with v 49 (set-case-syntax-pair 171 187 downcase) ; T with v
46 (set-case-syntax-pair 172 188 downcase) ; Z with acute accent 50 (set-case-syntax-pair 172 188 downcase) ; Z with acute accent
87 (set-case-syntax 223 "w" downcase) ; small sharp s, German 91 (set-case-syntax 223 "w" downcase) ; small sharp s, German
88 (set-case-syntax 247 "_" downcase) ; division sign 92 (set-case-syntax 247 "_" downcase) ; division sign
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