Mercurial > emacs
comparison lisp/international/quail.el @ 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 | b174db545cfd |
children | b73fe7fe3c9f |
comparison
equal
deleted
inserted
replaced
39023:c0daac54d3e1 | 39024:3fa2820b45e2 |
---|---|
2128 (setq l (funcall l))) | 2128 (setq l (funcall l))) |
2129 ;; Set KEY in the first LEN characters of NEWKEY. | 2129 ;; Set KEY in the first LEN characters of NEWKEY. |
2130 (while (< i len) | 2130 (while (< i len) |
2131 (aset newkey i (aref key i)) | 2131 (aset newkey i (aref key i)) |
2132 (setq i (1+ i))) | 2132 (setq i (1+ i))) |
2133 (setq l (reverse l)) | |
2133 (while l ; L = ((CHAR . DEFN) ....) ; | 2134 (while l ; L = ((CHAR . DEFN) ....) ; |
2134 (aset newkey len (car (car l))) | 2135 (aset newkey len (car (car l))) |
2135 (quail-completion-1 newkey (cdr (car l)) indent) | 2136 (quail-completion-1 newkey (cdr (car l)) indent) |
2136 (setq l (cdr l))))))) | 2137 (setq l (cdr l))))))) |
2137 | 2138 |