(=>cns11643-4): New coded-charset for XEmacs CHISE.

[chise/xemacs-chise.git.1] / lisp / mule / european.el

diff --git a/lisp/mule/european.el b/lisp/mule/european.el
index 54a3ca3..f6ce36f 100644 (file)
--- a/lisp/mule/european.el
+++ b/lisp/mule/european.el
@@ -25,7 +25,10 @@
 
 ;;; Commentary:
 
-;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported.
+;; For Europeans, six coded character sets ISO8859-1,2,3,4,9 are supported.
+;; Note: ISO 8859/15 (Latin-9) is supported via the latin-unity package.
+
+;; #### latin.el would be a better name for this file.
 
 ;;; Code:
 
@@ -48,6 +51,29 @@
 (modify-syntax-entry ?\e,BW\e(B ".")
 (modify-syntax-entry ?\e,Bw\e(B ".")
 
+;; For syntax of Latin-3
+(loop for c in '(?\e,C!\e(B ?\e,C&\e(B ?\e,C)\e(B ?\e,C*\e(B ?\e,C+\e(B ?\e,C,\e(B ?\e,C/\e(B ?\e,C1\e(B ?\e,C5\e(B ?\e,C6\e(B ?\e,C:\e(B ?\e,C;\e(B ?\e,C<\e(B ?\e,C?\e(B)
+  do (modify-syntax-entry c "w"))
+
+(loop for c from 64 to 126
+  do (modify-syntax-entry (make-char 'latin-iso8859-3 c) "w"))
+
+(modify-syntax-entry (make-char 'latin-iso8859-3 32) "w") ; no-break space
+(modify-syntax-entry ?\e,CW\e(B ".")
+(modify-syntax-entry ?\e,Cw\e(B ".")
+
+;; For syntax of Latin-4
+(loop for c in '(?\e,D!\e(B ?\e,D"\e(B ?\e,D#\e(B ?\e,D%\e(B ?\e,D&\e(B ?\e,D)\e(B ?\e,D*\e(B ?\e,D+\e(B ?\e,D,\e(B ?\e,D.\e(B ?\e,D1\e(B ?\e,D3\e(B ?\e,D5\e(B ?\e,D6\e(B ?\e,D9\e(B ?\e,D:\e(B ?\e,D;\e(B ?\e,D<\e(B ?\e,D=\e(B ?\e,D>\e(B ?\e,D?\e(B)
+  do (modify-syntax-entry c "w"))
+
+(loop for c from 64 to 126
+  do (modify-syntax-entry (make-char 'latin-iso8859-4 c) "w"))
+
+(modify-syntax-entry (make-char 'latin-iso8859-4 32) "w") ; no-break space
+(modify-syntax-entry ?\e,DW\e(B ".")
+(modify-syntax-entry ?\e,Dw\e(B ".")
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; EUROPEANS
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;