# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 917152950 0
# Node ID ab814ec4995e3d0ebea1cce53bd22e792b95017f
# Parent  67f80db6c62e5a18b688fa7a6545c2e54c42eb70
(generate-fontset-menu): Return a
sorted list by plain names of fontsets.

diff -r 67f80db6c62e -r ab814ec4995e lisp/international/fontset.el
--- a/lisp/international/fontset.el	Sun Jan 24 04:25:14 1999 +0000
+++ b/lisp/international/fontset.el	Sun Jan 24 04:42:30 1999 +0000
@@ -382,7 +382,8 @@
     (while fontsets
       (setq fontset-name (car (car fontsets)) fontsets (cdr fontsets))
       (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l)))
-    (cons "Fontset" l)))
+    (cons "Fontset"
+	  (sort l (function (lambda (x y) (string< (car x) (car y))))))))
 
 (defun fontset-plain-name (fontset)
   "Return a plain and descriptive name of FONTSET."