Update quail-package-alist (not

input-method-alist) to make "cyrillic-jcuken" an alias of
"russian-typewriter".  Add cookie for quail-update-leim-list-file.

2 files changed, 16 insertions, 2 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 832f7ceadf..eb619d4e6f 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-07  Kenichi Handa  <[email protected]>
+
+	* quail/cyrillic.el: Update quail-package-alist (not
+	input-method-alist) to make "cyrillic-jcuken" an alias of
+	"russian-typewriter".  Add cookie for quail-update-leim-list-file.
+
 2003-02-05  David Kastrup  <[email protected]>
 
 	* quail/greek.el: fix iota accent typos in greek-babel
diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 7422c5ee73..c6e4c6c1d9 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -156,8 +156,16 @@
 
 ;; Maintain the obsolete name for now.
 (push (cons "cyrillic-jcuken"
-	    (cdr (assoc "russian-typewriter" input-method-alist)))
-      input-method-alist)
+	    (cdr (assoc "russian-typewriter" quail-package-alist)))
+      quail-package-alist)
+
+;; This needs to be seen by quail-update-leim-list-file, but cannot be
+;; commented out because quail-update-leim-list-file ignores
+;; commented-out lines.
+(if nil
+    (quail-define-package 
+     "cyrillic-jcuken" "Russian" ",L69(B" nil
+     ",L9FC:5=(B Russian typewriter layout (ISO 8859-5 encoding)."))
 
 ;; See comment above.  This is the variant `winkeys' from `ru' in XKB.
 (quail-define-package