1694 |
;; No way to handle the last character in this context. |
;; No way to handle the last character in this context. |
1695 |
(setq def (quail-map-definition |
(setq def (quail-map-definition |
1696 |
(quail-lookup-key quail-current-key (1- len)))) |
(quail-lookup-key quail-current-key (1- len)))) |
1697 |
(setq quail-current-str (quail-get-current-str (1- len) def)) |
(if def (setq quail-current-str |
1698 |
|
(quail-get-current-str (1- len) def))) |
1699 |
(1- len)))))) |
(1- len)))))) |
1700 |
|
|
1701 |
(defun quail-next-translation () |
(defun quail-next-translation () |