Mercurial > emacs
comparison lisp/international/latin-4.el @ 61440:cc32b1ad8413
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 |