# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 893996189 0
# Node ID 1a80d464c77aea1e494871b3de7bfb7761f1a97a
# Parent  0a3488a711297402c839601546d92bfecee726dd
(quail-show-translations): Show
followable keys in alphabetic order.

diff -r 0a3488a71129 -r 1a80d464c77a lisp/international/quail.el
--- 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.