CVS update by aidan xemacs/lisp/mule ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 06/12/17 14:41:51

  Modified:    xemacs/lisp/mule cyrillic.el
Log:
Add case support for Cyrillic, change various syntax choices.

Revision  Changes    Path
1.781     +5 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.780
retrieving revision 1.781
diff -u -p -r1.780 -r1.781
--- ChangeLog	2006/12/17 13:23:34	1.780
+++ ChangeLog	2006/12/17 13:41:33	1.781
@@ -1,5 +1,10 @@
 2006-12-17  Aidan Kehoe  <kehoea at parhasard.net>
 
+	* mule/cyrillic.el:
+	Add case table, syntax table information for cyrillic-iso8859-5.
+
+2006-12-17  Aidan Kehoe  <kehoea at parhasard.net>
+
 	* mule/greek.el:
 	Support case tables for greek-iso8859-7; make different choices on
 	the relevant syntax. 



1.12      +63 -19    XEmacs/xemacs/lisp/mule/cyrillic.el

Index: cyrillic.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/mule/cyrillic.el,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -p -r1.11 -r1.12
--- cyrillic.el	2006/11/28 21:20:30	1.11
+++ cyrillic.el	2006/12/17 13:41:49	1.12
@@ -33,31 +33,75 @@
 
 ;;; Code:
 
-;; Cyrillic syntax
-(modify-syntax-entry 'cyrillic-iso8859-5 "w")
-(modify-syntax-entry ?,L-(B ".")
-(modify-syntax-entry ?,Lp(B ".")
-(modify-syntax-entry ?,L}(B ".")
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; CYRILLIC
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; ISO-8859-5
+
+(loop
+  for (upper lower)
+  in '((#xcf #xef) ; YA
+       (#xce #xee) ; YU
+       (#xcd #xed) ; E
+       (#xcc #xec) ; SOFT SIGN
+       (#xcb #xeb) ; YERU
+       (#xca #xea) ; HARD SIGN
+       (#xc9 #xe9) ; SHCHA
+       (#xc8 #xe8) ; SHA
+       (#xc7 #xe7) ; CHE
+       (#xc6 #xe6) ; TSE
+       (#xc5 #xe5) ; HA
+       (#xc4 #xe4) ; EF
+       (#xc3 #xe3) ; U
+       (#xc2 #xe2) ; TE
+       (#xc1 #xe1) ; ES
+       (#xc0 #xe0) ; ER
+       (#xbf #xdf) ; PE
+       (#xbe #xde) ; O
+       (#xbd #xdd) ; EN
+       (#xbc #xdc) ; EM
+       (#xbb #xdb) ; EL
+       (#xba #xda) ; KA
+       (#xb9 #xd9) ; SHORT I
+       (#xb8 #xd8) ; I
+       (#xb7 #xd7) ; ZE
+       (#xb6 #xd6) ; ZHE
+       (#xb5 #xd5) ; IE
+       (#xb4 #xd4) ; DE
+       (#xb3 #xd3) ; GHE
+       (#xb2 #xd2) ; VE
+       (#xb1 #xd1) ; BE
+       (#xb0 #xd0) ; A
+       (#xaf #xff) ; DZHE
+       (#xae #xfe) ; SHORT U
+       (#xac #xfc) ; KJE
+       (#xab #xfb) ; TSHE
+       (#xaa #xfa) ; NJE
+       (#xa9 #xf9) ; LJE
+       (#xa8 #xf8) ; JE
+       (#xa7 #xf7) ; YI
+       (#xa6 #xf6) ; BYELORUSSIAN-UKRAINIAN I
+       (#xa5 #xf5) ; DZE
+       (#xa4 #xf4) ; UKRAINIAN IE
+       (#xa3 #xf3) ; GJE
+       (#xa2 #xf2) ; DJE
+       (#xa1 #xf1)) ; IO
+  with case-table = (standard-case-table)
+  do
+  (put-case-table-pair (make-char 'cyrillic-iso8859-5 upper)
+		       (make-char 'cyrillic-iso8859-5 lower)
+		       case-table))
+
+;; The default character syntax is now word. Pay attention to the
+;; exceptions in ISO-8859-5. 
+(dolist (code '(#xAD	;; SOFT HYPHEN
+		#xF0	;; NUMERO SIGN
+		#xFD))  ;; SECTION SIGN
+  (modify-syntax-entry (make-char 'cyrillic-iso8859-5 code) "."))
 
-; (make-charset 'cyrillic-iso8859-5 
-; 	      "Right-Hand Part of Latin/Cyrillic Alphabet (ISO/IEC 8859-5): ISO-IR-144"
-; 	      '(dimension
-; 		1
-; 		registry "ISO8859-5"
-; 		chars 96
-; 		columns 1
-; 		direction l2r
-; 		final ?L
-; 		graphic 1
-; 		short-name "RHP of ISO8859/5"
-; 		long-name "RHP of Cyrillic (ISO 8859-5): ISO-IR-144"
-; 		))
+;; NO-BREAK SPACE
+(modify-syntax-entry (make-char 'cyrillic-iso8859-5 #xA0) " ")
 
 (make-coding-system
  'iso-8859-5 'iso2022