From e953b36874a30e59467a1da5f68f7574c7840738 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 1 May 1998 04:16:29 +0000 Subject: [PATCH] (quail-show-translations): Show followable keys in alphabetic order. --- lisp/international/quail.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index c019586133..c36f022796 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1600,11 +1600,13 @@ or in a newly created frame (if the selected frame has no other windows)." ;; 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. -- 2.20.1