1 |
;;; latin-5.el --- set up case-conversion and syntax tables for ISO latin-5 |
;;; latin-5.el --- set up case-conversion and syntax tables for ISO latin-5 |
2 |
|
|
3 |
;; Copyright (C) 1997 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Erik Naggum |
;; Author: Erik Naggum |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
36 |
(if set-case-syntax-set-multibyte |
(if set-case-syntax-set-multibyte |
37 |
(- (make-char 'latin-iso8859-9) 128) |
(- (make-char 'latin-iso8859-9) 128) |
38 |
0))) |
0))) |
39 |
(set-case-syntax 160 " " tbl) ;no-break space |
;; 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 |
42 |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
(set-case-syntax 161 "." tbl) ;inverted exclamation mark |
43 |
(set-case-syntax 162 "w" tbl) ;cent sign |
(set-case-syntax 162 "w" tbl) ;cent sign |
44 |
(set-case-syntax 163 "w" tbl) ;pound sign |
(set-case-syntax 163 "w" tbl) ;pound sign |
113 |
(or set-case-syntax-set-multibyte |
(or set-case-syntax-set-multibyte |
114 |
(provide 'latin-5)) |
(provide 'latin-5)) |
115 |
|
|
116 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;; Don't compile this file: src/Makefile.in instructs make-docfile |
117 |
;;; to look at the .el file! |
;; to look at the .el file! |
118 |
;;; Local Variables: |
;; Local Variables: |
119 |
;;; no-byte-compile: t |
;; no-byte-compile: t |
120 |
;;; End: |
;; End: |
121 |
|
|
122 |
;;; arch-tag: 7f91a36a-39fb-4b5d-806f-f171abee71ad |
;; arch-tag: 7f91a36a-39fb-4b5d-806f-f171abee71ad |
123 |
;;; latin-5.el ends here |
;;; latin-5.el ends here |