From 80ae5f3a940e3723c5ac86fb85594ecea1ad3ce6 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Sun, 24 Jan 1999 04:42:30 +0000 Subject: [PATCH] (generate-fontset-menu): Return a sorted list by plain names of fontsets. --- lisp/international/fontset.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index a1a64080bdc..6a3867d244c 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -382,7 +382,8 @@ with \"fontset\" in ` field." (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." -- 2.39.2