Mercurial > emacs
changeset 39024:3fa2820b45e2
(quail-completion-1): Reverse
the ((CHAR . DEFN) ...) list before processing it.
From Kenichi Handa <handa@etl.go.jp>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 30 Aug 2001 09:02:20 +0000 |
| parents | c0daac54d3e1 |
| children | 40ffc440049f |
| files | lisp/international/quail.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)