From: Kenichi Handa <handa@m17n.org>
Date: Sun, 24 Jan 1999 04:43:03 +0000 (+0000)
Subject: (list-fontsets): Sort fontsets by plain names.
X-Git-Tag: emacs-20.4~788
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc1f8c72f4d09a5161cfb2b3bbfd4eb658947939;p=emacs.git

(list-fontsets): Sort fontsets by plain names.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index bd450a4ff0b..202c99bcbbe 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -676,7 +676,11 @@ see the function `describe-fontset' for the format of the list."
 	(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))))))))