From dc1f8c72f4d09a5161cfb2b3bbfd4eb658947939 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 24 Jan 1999 04:43:03 +0000 Subject: [PATCH] (list-fontsets): Sort fontsets by plain names. --- lisp/international/mule-diag.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))))))) -- 2.39.2