(quail-completion-1): Reverse

the ((CHAR . DEFN) ...) list before processing it.
From Kenichi Handa <handa@etl.go.jp>.

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)