diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-30 09:02:42 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-30 09:02:42 +0000 |
| commit | d5dc1e4965331656fa8d9aada881e2fd1636cfd4 (patch) | |
| tree | dfc410c565680df0459ab2e8d9d4c1163e6d7123 /lisp | |
| parent | 24766480cf30e0b283a1929a4aa107f5976981be (diff) | |
| download | emacs-d5dc1e4965331656fa8d9aada881e2fd1636cfd4.tar.gz | |
(quail-completion-1): Reverse
the ((CHAR . DEFN) ...) list before processing it.
From Kenichi Handa <handa@etl.go.jp>.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/international/quail.el | 1 |
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) |