Mercurial > emacs
comparison lisp/international/latin-8.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-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 |