# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 917152983 0
# Node ID 782215de9b9872a13ada5b8ec8182d27def67d6c
# Parent  ab814ec4995e3d0ebea1cce53bd22e792b95017f
(list-fontsets): Sort fontsets by plain names.

diff -r ab814ec4995e -r 782215de9b98 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Sun Jan 24 04:42:30 1999 +0000
+++ b/lisp/international/mule-diag.el	Sun Jan 24 04:43:03 1999 +0000
@@ -676,7 +676,11 @@
 	(set-buffer standard-output)
 	(insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
 	(insert "------------\t\t\t\t\t\t  ----- -----\n")
-	(let ((fontsets (fontset-list)))
+	(let ((fontsets
+	       (sort (fontset-list)
+		     (function (lambda (x y)
+				 (string< (fontset-plain-name x)
+					  (fontset-plain-name y)))))))
 	  (while fontsets
 	    (print-fontset (car fontsets) arg)
 	    (setq fontsets (cdr fontsets))))))))