From: Kenichi Handa <handa@m17n.org>
Date: Fri, 1 May 1998 04:16:29 +0000 (+0000)
Subject: (quail-show-translations): Show
X-Git-Tag: emacs-20.3~1196
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e953b36874a30e59467a1da5f68f7574c7840738;p=emacs.git

(quail-show-translations): Show
followable keys in alphabetic order.
---

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index c019586133c..c36f022796d 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.