[Emacs-diffs] Changes to emacs/lisp/international/quail.el

[Kenichi Handa]

Index: emacs/lisp/international/quail.el
diff -c emacs/lisp/international/quail.el:1.143 
emacs/lisp/international/quail.el:1.144
*** emacs/lisp/international/quail.el:1.143     Sat Sep 24 13:43:59 2005
--- emacs/lisp/international/quail.el   Tue Oct 25 06:10:23 2005
***************
*** 1720,1725 ****
--- 1720,1739 ----
             ;; And, we can terminate the current translation.
             t)
  
+           ((quail-deterministic)
+            ;; No way to handle the last character in this context.
+            ;; Commit the longest successfully translated characters, and
+            ;; handle the remaining characters in a new loop.
+            (setq def nil)
+            (while (and (not def) (> len 1))
+              (setq len (1- len))
+              (setq def (quail-map-definition
+                         (quail-lookup-key quail-current-key len))))
+            (if def (setq quail-current-str
+                          (quail-get-current-str len def))
+              (setq quail-current-str (aref quail-current-key 0)))
+            len)
+ 
            (t
             ;; No way to handle the last character in this context.
             (setq def (quail-map-definition