1 |
;;; latin-2.el --- set up case-conversion and syntax tables for ISO Latin-2 |
;;; latin-2.el --- set up case-conversion and syntax tables for ISO Latin-2 |
2 |
|
|
3 |
;; Copyright (C) 1995,1997 Free Software Foundation, Inc. |
;; Copyright (C) 1995, 1997, 2005 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) |
;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
38 |
(if set-case-syntax-set-multibyte |
(if set-case-syntax-set-multibyte |
39 |
(- (make-char 'latin-iso8859-2) 128) |
(- (make-char 'latin-iso8859-2) 128) |
40 |
0))) |
0))) |
41 |
(set-case-syntax 160 " " tbl) ;no-break space |
;; NBSP isn't semantically interchangeable with other whitespace chars, |
42 |
|
;; so it's more like punctation. |
43 |
|
(set-case-syntax 160 "." tbl) ;no-break space |
44 |
(set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek |
(set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek |
45 |
(set-case-syntax 162 "w" tbl) ;breve |
(set-case-syntax 162 "w" tbl) ;breve |
46 |
(set-case-syntax-pair 163 179 tbl) ;latin letter l with stroke |
(set-case-syntax-pair 163 179 tbl) ;latin letter l with stroke |
102 |
(or set-case-syntax-set-multibyte |
(or set-case-syntax-set-multibyte |
103 |
(provide 'latin-2)) |
(provide 'latin-2)) |
104 |
|
|
105 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;; Don't compile this file: src/Makefile.in instructs make-docfile |
106 |
;;; to look at the .el file! |
;; to look at the .el file! |
107 |
;;; Local Variables: |
;; Local Variables: |
108 |
;;; no-byte-compile: t |
;; no-byte-compile: t |
109 |
;;; End: |
;; End: |
110 |
|
|
111 |
;;; arch-tag: 2b9f9c30-1a63-4877-8a80-e95a5e4c57c9 |
;; arch-tag: 2b9f9c30-1a63-4877-8a80-e95a5e4c57c9 |
112 |
;;; latin-2.el ends here |
;;; latin-2.el ends here |