1 |
;;; latin-9.el --- set up case-conversion and syntax tables for ISO Latin-9 |
;;; latin-9.el --- set up case-conversion and syntax tables for ISO Latin-9 |
2 |
|
|
3 |
;; Copyright (C) 1988,1997,1999 Free Software Foundation, Inc. |
;; Copyright (C) 1988, 1997, 1999, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Dave Love |
;; Author: Dave Love |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
50 |
(if set-case-syntax-set-multibyte |
(if set-case-syntax-set-multibyte |
51 |
(- (make-char 'latin-iso8859-15) 128) |
(- (make-char 'latin-iso8859-15) 128) |
52 |
0))) |
0))) |
53 |
(set-case-syntax 160 " " tbl) ;no-break space |
;; NBSP isn't semantically interchangeable with other whitespace chars, |
54 |
|
;; so it's more like punctation. |
55 |
|
(set-case-syntax 160 "." tbl) ;no-break space |
56 |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
57 |
(set-case-syntax 162 "w" tbl) ;cent sign |
(set-case-syntax 162 "w" tbl) ;cent sign |
58 |
(set-case-syntax 163 "w" tbl) ;pound sign |
(set-case-syntax 163 "w" tbl) ;pound sign |
119 |
(or set-case-syntax-set-multibyte |
(or set-case-syntax-set-multibyte |
120 |
(provide 'latin-9)) |
(provide 'latin-9)) |
121 |
|
|
122 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;; Don't compile this file: src/Makefile.in instructs make-docfile |
123 |
;;; to look at the .el file! |
;; to look at the .el file! |
124 |
;;; Local Variables: |
;; Local Variables: |
125 |
;;; no-byte-compile: t |
;; no-byte-compile: t |
126 |
;;; End: |
;; End: |
127 |
|
|
128 |
;;; arch-tag: 84d442ad-d595-4016-8b84-ea92704fd235 |
;; arch-tag: 84d442ad-d595-4016-8b84-ea92704fd235 |
129 |
;;; latin-9.el ends here |
;;; latin-9.el ends here |