diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/international/quail.el | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index decffb06a8c..b743f662517 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2001-08-30 Gerd Moellmann <gerd@gnu.org> + * international/quail.el (quail-completion-1): Reverse + the ((CHAR . DEFN) ...) list before processing it. + From Kenichi Handa <handa@etl.go.jp>. + * obsolete/rsz-mini.el, obsolete/sun-curs.el, obsolete/sun-fns.el * obsolete/x-apollo.el, obsolete/x-menu.el: Moved here from lisp/. diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 6a26b344bfa..9a68304288a 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2130,6 +2130,7 @@ are shown (at most to the depth specified `quail-completion-max-depth')." (while (< i len) (aset newkey i (aref key i)) (setq i (1+ i))) + (setq l (reverse l)) (while l ; L = ((CHAR . DEFN) ....) ; (aset newkey len (car (car l))) (quail-completion-1 newkey (cdr (car l)) indent) |