1 |
;;; latin-8.el --- set up case-conversion and syntax tables for ISO Latin-8 |
;;; latin-8.el --- set up case-conversion and syntax tables for ISO Latin-8 |
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 |
47 |
(if set-case-syntax-set-multibyte |
(if set-case-syntax-set-multibyte |
48 |
(- (make-char 'latin-iso8859-14) 128) |
(- (make-char 'latin-iso8859-14) 128) |
49 |
0))) |
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 |
53 |
(set-case-syntax-pair 161 162 tbl) ;latin letter b with dot above * |
(set-case-syntax-pair 161 162 tbl) ;latin letter b with dot above * |
54 |
(set-case-syntax 163 "w" tbl) ;pound sign |
(set-case-syntax 163 "w" tbl) ;pound sign |
55 |
(set-case-syntax-pair 164 165 tbl) ;latin letter c with dot above * |
(set-case-syntax-pair 164 165 tbl) ;latin letter c with dot above * |
107 |
(or set-case-syntax-set-multibyte |
(or set-case-syntax-set-multibyte |
108 |
(provide 'latin-8)) |
(provide 'latin-8)) |
109 |
|
|
110 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;; Don't compile this file: src/Makefile.in instructs make-docfile |
111 |
;;; to look at the .el file! |
;; to look at the .el file! |
112 |
;;; Local Variables: |
;; Local Variables: |
113 |
;;; no-byte-compile: t |
;; no-byte-compile: t |
114 |
;;; End: |
;; End: |
115 |
|
|
116 |
;;; arch-tag: a916b4b5-4204-485b-8b57-8ab3a43a2e29 |
;; arch-tag: a916b4b5-4204-485b-8b57-8ab3a43a2e29 |
117 |
;;; latin-8.el ends here |
;;; latin-8.el ends here |