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.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 832f7ceadfcf2caa609f38727b9c5970e67b7898..eb619d4e6f9b72c573be5ef626cb255eeb28c9ff 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-07  Kenichi Handa  <handa@m17n.org>
+
+       * 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  <dak@gnu.org>
 
        * quail/greek.el: fix iota accent typos in greek-babel

diff --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 7422c5ee7331e78243c3b165c10c1bdc4e989fcf..c6e4c6c1d90bda04200fe8ad590f0a8d43d30596 100644 (file)
--- 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" "\e,L69\e(B" nil
+     "\e,L9FC:5=\e(B Russian typewriter layout (ISO 8859-5 encoding)."))
 
 ;; See comment above.  This is the variant `winkeys' from `ru' in XKB.
 (quail-define-package