1 |
;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4 |
;;; latin-4.el --- set up case-conversion and syntax tables for ISO Latin-4 |
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-4) 128) |
(- (make-char 'latin-iso8859-4) 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-pair 161 177 tbl) ;latin letter a with ogonek |
(set-case-syntax-pair 161 177 tbl) ;latin letter a with ogonek |
43 |
(set-case-syntax 162 "w" tbl) ;latin letter kra |
(set-case-syntax 162 "w" tbl) ;latin letter kra |
44 |
(set-case-syntax-pair 163 179 tbl) ;latin letter r with cedilla |
(set-case-syntax-pair 163 179 tbl) ;latin letter r with cedilla |
100 |
(or set-case-syntax-set-multibyte |
(or set-case-syntax-set-multibyte |
101 |
(provide 'latin-4)) |
(provide 'latin-4)) |
102 |
|
|
103 |
;;; Don't compile this file: src/Makefile.in instructs make-docfile |
;; Don't compile this file: src/Makefile.in instructs make-docfile |
104 |
;;; to look at the .el file! |
;; to look at the .el file! |
105 |
;;; Local Variables: |
;; Local Variables: |
106 |
;;; no-byte-compile: t |
;; no-byte-compile: t |
107 |
;;; End: |
;; End: |
108 |
|
|
109 |
;;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352 |
;; arch-tag: c6b2558b-1943-4626-beb5-139630c8e352 |
110 |
;;; latin-4.el ends here |
;;; latin-4.el ends here |