Index: ru-keys.el
===================================================================
RCS file: /home/awn/.cvsroot/ru-keys/ru-keys.el,v
retrieving revision 1.7
retrieving revision 1.9
diff -u -p -r1.7 -r1.9
--- ru-keys.el	2001/08/15 12:38:11	1.7
+++ ru-keys.el	2001/10/10 14:51:55	1.9
@@ -2,8 +2,10 @@
 ;;
 ;; ru-keys.el -- support for Russian and Ukrainian keys for XEmacs.
 ;;
-;; Version: 0.4.0
+;; Version: 0.4.0.1
 ;;
+;; $Id: ru-keys.el,v 1.9 2001/10/10 14:51:55 awn Exp $
+;;
 ;; Copyright (c) Business Computer Service, Ltd. 2000-2001
 ;; Written by Andrew W. Nosenko <awn@bcs.zp.ua>
 ;;
@@ -135,8 +137,24 @@ work by self otherwise."
   (if (functionp 'put-case-table-pair)
       (put-case-table-pair uc lc table) ; XEmacs 21.4
     ;; XEmacs 21.1
-    (aset (car table) uc lc)
-    (aset (car table) lc lc)
+    (if (featurep 'mule)
+        ()                              ; FIXME: awn@bcs.zp.ua:
+                                        ; Is problem with
+                                        ; case-insensetive searches
+                                        ; exists under XEmacs-21.1.x
+                                        ; with Mule?
+                                        ;
+                                        ; In any case I don't know how
+                                        ; to setup case-table for
+                                        ; Russian characters right under
+                                        ; 21.1 + Mule.
+                                        ;
+                                        ; Any knowledge about this are
+                                        ; welcomed.
+      ; 21.1 non-Mule
+      (aset (car table) uc lc)
+      (aset (car table) lc lc)
+      )
     )
 )
 
@@ -327,7 +345,8 @@ BE AWARE: XEmacs-Mule don't know about k
 
 (ru-keys-setup)
 
-(if (not (functionp 'put-case-table-pair))  ; XEmacs 21.1
+(if (and (not (functionp 'put-case-table-pair))  ; XEmacs 21.1 non-Mule
+         (not (featurep 'mule)))
     (add-hook 'post-command-hook 'ru-keys-set-case-table)
 )