mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(quail-completion-1): Reverse

Browse Source 
the ((CHAR . DEFN) ...) list before processing it.
From Kenichi Handa <handa@etl.go.jp>.
This commit is contained in:
Gerd Moellmann 2001-08-30 09:02:42 +00:00
parent 24766480cf
commit d5dc1e4965
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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/.

1
lisp/international/quail.el
View File

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