Mercurial > emacs

comparison lisp/international/latin-8.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-8.el --- set up case-conversion and syntax tables for ISO Latin-8 1 ;;; latin-8.el --- set up case-conversion and syntax tables for ISO Latin-8
2 2
3 ;; Copyright (C) 1988,1997, 1999 Free Software Foundation, Inc. 3 ;; Copyright (C) 1988, 1997, 1999, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Love 5 ;; Author: Dave Love
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: i18n 7 ;; Keywords: i18n
8 8
45 (let ((tbl (standard-case-table)) 45 (let ((tbl (standard-case-table))
46 (set-case-syntax-offset 46 (set-case-syntax-offset
47 (if set-case-syntax-set-multibyte 47 (if set-case-syntax-set-multibyte
48 (- (make-char 'latin-iso8859-14) 128) 48 (- (make-char 'latin-iso8859-14) 128)
49 0))) 49 0)))
50 ;; NBSP isn't semantically interchangeable with other whitespace chars,
51 ;; so it's more like punctation.
52 (set-case-syntax 160 "." tbl) ;no-break space
50 (set-case-syntax-pair 161 162 tbl) ;latin letter b with dot above * 53 (set-case-syntax-pair 161 162 tbl) ;latin letter b with dot above *
51 (set-case-syntax 163 "w" tbl) ;pound sign 54 (set-case-syntax 163 "w" tbl) ;pound sign
52 (set-case-syntax-pair 164 165 tbl) ;latin letter c with dot above * 55 (set-case-syntax-pair 164 165 tbl) ;latin letter c with dot above *
53 (set-case-syntax-pair 166 171 tbl) ;latin letter d with dot above * 56 (set-case-syntax-pair 166 171 tbl) ;latin letter d with dot above *
54 (set-case-syntax 167 "." tbl) ;section sign 57 (set-case-syntax 167 "." tbl) ;section sign
102 ;; When preloading this file, don't provide the feature. 105 ;; When preloading this file, don't provide the feature.
103 ;; Explicit `require' is used to load this for 8-bit characters. 106 ;; Explicit `require' is used to load this for 8-bit characters.
104 (or set-case-syntax-set-multibyte 107 (or set-case-syntax-set-multibyte
105 (provide 'latin-8)) 108 (provide 'latin-8))
106 109
107 ;;; Don't compile this file: src/Makefile.in instructs make-docfile 110 ;; Don't compile this file: src/Makefile.in instructs make-docfile
108 ;;; to look at the .el file! 111 ;; to look at the .el file!
109 ;;; Local Variables: 112 ;; Local Variables:
110 ;;; no-byte-compile: t 113 ;; no-byte-compile: t
111 ;;; End: 114 ;; End:
112 115
113 ;;; arch-tag: a916b4b5-4204-485b-8b57-8ab3a43a2e29 116 ;; arch-tag: a916b4b5-4204-485b-8b57-8ab3a43a2e29
114 ;;; latin-8.el ends here 117 ;;; latin-8.el ends here