# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 999162140 0
# Node ID 3fa2820b45e2d9cc8b4853c7c015037a0af08bb6
# Parent  c0daac54d3e1ff2943c5038a67508692867bf5ee
(quail-completion-1): Reverse
the ((CHAR . DEFN) ...) list before processing it.
From Kenichi Handa <handa@etl.go.jp>.

diff -r c0daac54d3e1 -r 3fa2820b45e2 lisp/international/quail.el
--- a/lisp/international/quail.el	Thu Aug 30 08:24:22 2001 +0000
+++ b/lisp/international/quail.el	Thu Aug 30 09:02:20 2001 +0000
@@ -2130,6 +2130,7 @@
 	  (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)