X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmule%2Feuropean.el;h=f94e13e4e6eb21b2779622ccca9ce0e4ea9137b3;hb=3d02bc02477677c38a8f01ecf196d018230b23a6;hp=54a3ca3086c92766dc5160c5bc37885b10814d2a;hpb=1e7fd761ecf5fd2208bde8e30fc6f7cbf789b7db;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mule/european.el b/lisp/mule/european.el
index 54a3ca3..f94e13e 100644
--- a/lisp/mule/european.el
+++ b/lisp/mule/european.el
@@ -27,6 +27,8 @@
 
 ;; For Europeans, five character sets ISO8859-1,2,3,4,9 are supported.
 
+;; #### latin.el would be a better name for this file.
+
 ;;; Code:
 
 ;; For syntax of Latin-1 characters.
@@ -48,6 +50,29 @@
 (modify-syntax-entry ?,BW(B ".")
 (modify-syntax-entry ?,Bw(B ".")
 
+;; For syntax of Latin-3
+(loop for c in '(?,C!(B ?,C&(B ?,C)(B ?,C*(B ?,C+(B ?,C,(B ?,C/(B ?,C1(B ?,C5(B ?,C6(B ?,C:(B ?,C;(B ?,C<(B ?,C?(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 ?,CW(B ".")
+(modify-syntax-entry ?,Cw(B ".")
+
+;; For syntax of Latin-4
+(loop for c in '(?,D!(B ?,D"(B ?,D#(B ?,D%(B ?,D&(B ?,D)(B ?,D*(B ?,D+(B ?,D,(B ?,D.(B ?,D1(B ?,D3(B ?,D5(B ?,D6(B ?,D9(B ?,D:(B ?,D;(B ?,D<(B ?,D=(B ?,D>(B ?,D?(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 ?,DW(B ".")
+(modify-syntax-entry ?,Dw(B ".")
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; EUROPEANS
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;