Mercurial > emacs

changeset 21881:1a80d464c77a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0a3488a71129
children 4fb3860a1f26
files lisp/international/quail.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
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.