Mercurial > emacs

comparison lisp/international/latin-4.el @ 17971:621d1db5845b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
If set-case-syntax-set-multibyte is non-nil, define syntax for multibyte characters, and don't do `provide'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 27 May 1997 15:37:53 +0000
parents a9aa009e7c7f
children f8af1810653b
comparison
equal deleted inserted replaced
17970:720d1f98ae42 17971:621d1db5845b
1 ;;; latin-4.el --- support for ISO Latin 4 (ISO 8859-4) 1 ;;; latin-4.el --- define syntax and case conversion for Latin 4 (ISO 8859-4).
2 2
3 ;; Copyright (C) 1988,1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1988,1997 Free Software Foundation, Inc.
4 4
5 ;; Author: Erik Naggum 5 ;; Author: Erik Naggum
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
31 31
32 (require 'case-table) 32 (require 'case-table)
33 33
34 (let ((tbl (standard-case-table)) 34 (let ((tbl (standard-case-table))
35 (set-case-syntax-offset 35 (set-case-syntax-offset
36 (if enable-multibyte-characters 36 (if set-case-syntax-set-multibyte
37 (- (make-char 'latin-iso8859-4) 128) 37 (- (make-char 'latin-iso8859-4) 128)
38 0))) 38 0)))
39 (set-case-syntax 160 "w" tbl) ;NO-BREAK SPACE 39 (set-case-syntax 160 "w" tbl) ;NO-BREAK SPACE
40 (set-case-syntax-pair 161 177 tbl) ;LATIN LETTER A WITH OGONEK 40 (set-case-syntax-pair 161 177 tbl) ;LATIN LETTER A WITH OGONEK
41 (set-case-syntax 162 "w" tbl) ;LATIN LETTER KRA 41 (set-case-syntax 162 "w" tbl) ;LATIN LETTER KRA
91 (set-case-syntax-pair 222 254 tbl) ;LATIN LETTER U WITH MACRON 91 (set-case-syntax-pair 222 254 tbl) ;LATIN LETTER U WITH MACRON
92 (set-case-syntax 223 "w" tbl) ;LATIN LETTER SHARP S 92 (set-case-syntax 223 "w" tbl) ;LATIN LETTER SHARP S
93 (set-case-syntax 247 "_" tbl) ;DIVISION SIGN 93 (set-case-syntax 247 "_" tbl) ;DIVISION SIGN
94 (set-case-syntax 255 "w" tbl)) ;DOT ABOVE 94 (set-case-syntax 255 "w" tbl)) ;DOT ABOVE
95 95
96 (provide 'latin-4) 96 ;; When preloading this file, don't provide the feature.
97 ;; Explicit `require' is used to load this for 8-bit characters.
98 (or set-case-syntax-set-multibyte
99 (provide 'latin-4))
97 100
98 ;;; latin-4.el ends here 101 ;;; latin-4.el ends here