From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 30 Aug 2001 09:02:42 +0000 (+0000)
Subject: (quail-completion-1): Reverse
X-Git-Tag: emacs-pretest-21.0.105~28
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5dc1e4965331656fa8d9aada881e2fd1636cfd4;p=emacs.git

(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 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)