Mercurial > emacs

comparison lisp/international/latin-4.el @ 61440:cc32b1ad8413

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Give punctuation syntax to NBSP.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 10 Apr 2005 20:49:54 +0000
parents 695cf19ef79e
children 18a818a2ee7c
comparison
equal deleted inserted replaced
61439:267229876c56 61440:cc32b1ad8413
1 ;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4 1 ;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4
2 2
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Erik Naggum 5 ;; Author: Erik Naggum
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: i18n 7 ;; Keywords: i18n
8 8
34 (let ((tbl (standard-case-table)) 34 (let ((tbl (standard-case-table))
35 (set-case-syntax-offset 35 (set-case-syntax-offset
36 (if set-case-syntax-set-multibyte 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 " " tbl) ;no-break space 39 ;; NBSP isn't semantically interchangeable with other whitespace chars,
40 ;; so it's more like punctation.
41 (set-case-syntax 160 "." tbl) ;no-break space
40 (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek 42 (set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek
41 (set-case-syntax 162 "w" tbl) ;latin letter kra 43 (set-case-syntax 162 "w" tbl) ;latin letter kra
42 (set-case-syntax-pair 163 179 tbl) ;latin letter r with cedilla 44 (set-case-syntax-pair 163 179 tbl) ;latin letter r with cedilla
43 (set-case-syntax 164 "w" tbl) ;currency sign 45 (set-case-syntax 164 "w" tbl) ;currency sign
44 (set-case-syntax-pair 165 181 tbl) ;latin letter i with tilde 46 (set-case-syntax-pair 165 181 tbl) ;latin letter i with tilde
96 ;; When preloading this file, don't provide the feature. 98 ;; When preloading this file, don't provide the feature.
97 ;; Explicit `require' is used to load this for 8-bit characters. 99 ;; Explicit `require' is used to load this for 8-bit characters.
98 (or set-case-syntax-set-multibyte 100 (or set-case-syntax-set-multibyte
99 (provide 'latin-4)) 101 (provide 'latin-4))
100 102
101 ;;; Don't compile this file: src/Makefile.in instructs make-docfile 103 ;; Don't compile this file: src/Makefile.in instructs make-docfile
102 ;;; to look at the .el file! 104 ;; to look at the .el file!
103 ;;; Local Variables: 105 ;; Local Variables:
104 ;;; no-byte-compile: t 106 ;; no-byte-compile: t
105 ;;; End: 107 ;; End:
106 108
107 ;;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352 109 ;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352
108 ;;; latin-4.el ends here 110 ;;; latin-4.el ends here