Mercurial > emacs
diff lisp/international/quail.el @ 21881:1a80d464c77a
(quail-show-translations): Show
followable keys in alphabetic order.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 01 May 1998 04:16:29 +0000 |
parents | 70c5f2b7e3a8 |
children | 10b3c1cd7f18 |
line wrap: on
line diff
--- a/lisp/international/quail.el Fri May 01 04:15:48 1998 +0000 +++ b/lisp/international/quail.el Fri May 01 04:16:29 1998 +0000 @@ -1600,11 +1600,13 @@ ;; Show followable keys. (if (cdr map) - (let ((l (cdr map))) + (let ((keys (mapcar (function (lambda (x) (car x))) + (cdr map)))) + (setq keys (sort keys '<)) (insert "[") - (while l - (insert (car (car l))) - (setq l (cdr l))) + (while keys + (insert (car keys)) + (setq keys (cdr keys))) (insert "]"))) ;; Show list of translations.