(quail-completion-1): Reverse

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index decffb06a8c3b2db1691535cddc6e95c8da566e5..b743f662517c66f13a27f1596280f5b4cfe91038 100644 (file)
--- 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 6a26b344bfa94190d5add26a2c9b0390f783fd19..9a68304288a92e4b1353f699cd0fbcac6f3d0e34 100644 (file)
--- 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)