[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/quail.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/quail.el |
Date: |
Tue, 25 Oct 2005 02:10:24 -0400 |
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
- [Emacs-diffs] Changes to emacs/lisp/international/quail.el,
Kenichi Handa <=