(quail-lookup-key): New optional arg

NOT-RESET-INDICES.
(quail-get-translations): Call quail-lookup-key with
NOT-RESET-INDICES t.
(quail-completion): Likewise.
(quail-lookup-map-and-concat): Likewise.

2 files changed, 14 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 575cb590008..e637f78d2ae 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,14 @@
 2004-04-20  Kenichi Handa  <handa@m17n.org>
 
+        * international/quail.el (quail-lookup-key): New optional arg
+        NOT-RESET-INDICES.
+        (quail-get-translations): Call quail-lookup-key with
+        NOT-RESET-INDICES t.
+        (quail-completion): Likewise.
+        (quail-lookup-map-and-concat): Likewise.
+
+2004-04-20  Kenichi Handa  <handa@m17n.org>
+
         * international/quail.el (quail-update-translation): Don't insert
         such an unsupported multibyte char in a unibyte buffer.
 
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index cfd578fbc06..9e289c300d9 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1218,7 +1218,7 @@ selected translation."
    (t
     (error "Invalid object in Quail map: %s" def))))
 
-(defun quail-lookup-key (key &optional len)
+(defun quail-lookup-key (key &optional len not-reset-indices)
   "Lookup KEY of length LEN in the current Quail map and return the definition.
 The returned value is a Quail map specific to KEY."
   (or len
@@ -1256,7 +1256,7 @@ The returned value is a Quail map specific to KEY."
           (if (and (consp translation) (vectorp (cdr translation)))
               (progn
                 (setq quail-current-translations translation)
-                (if (quail-forget-last-selection)
+                (if (and (not not-reset-indices) (quail-forget-last-selection))
                     (setcar (car quail-current-translations) 0))))))
     ;; We may have to reform cdr part of MAP.
     (if (and (cdr map) (functionp (cdr map)))
@@ -2043,7 +2043,7 @@ minibuffer and the selected frame has no other windows)."
 
 (defun quail-get-translations ()
   "Return a string containing the current possible translations."
-  (let ((map (quail-lookup-key quail-current-key))
+  (let ((map (quail-lookup-key quail-current-key nil t))
         (str (copy-sequence quail-current-key)))
     (if quail-current-translations
         (quail-update-current-translations))
@@ -2114,7 +2114,7 @@ are shown (at most to the depth specified `quail-completion-max-depth')."
   (quail-setup-completion-buf)
   (let ((win (get-buffer-window quail-completion-buf 'visible))
         (key quail-current-key)
-        (map (quail-lookup-key quail-current-key))
+        (map (quail-lookup-key quail-current-key nil t))
         (require-update nil))
     (with-current-buffer quail-completion-buf
       (if (and win
@@ -2695,7 +2695,7 @@ function `quail-install-map' (which see)."
          (translation-list nil)
          map)
     (while (> len 0)
-      (setq map (quail-lookup-key key len)
+      (setq map (quail-lookup-key key len t)
             len (1- len))
       (if map
           (let* ((def (quail-map-definition map))