Mercurial > emacs

changeset 24161:782215de9b98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-fontsets): Sort fontsets by plain names.
author Kenichi Handa <handa@m17n.org>
date Sun, 24 Jan 1999 04:43:03 +0000
parents ab814ec4995e
children 93161ca8b2e5
files lisp/international/mule-diag.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))))))))