# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1033102442 0
# Node ID 3e0204a3fcb8b00955dada20bb3549b59c91b928
# Parent  3bbfb5d2bb5266b0195dc1776f013aec79eea085
(generate-fontset-menu): Exclude the defualt fontset.

diff -r 3bbfb5d2bb52 -r 3e0204a3fcb8 lisp/international/fontset.el
--- a/lisp/international/fontset.el	Fri Sep 27 04:51:34 2002 +0000
+++ b/lisp/international/fontset.el	Fri Sep 27 04:54:02 2002 +0000
@@ -427,14 +427,12 @@
 ;; Return a list to be appended to `x-fixed-font-alist' when
 ;; `mouse-set-font' is called.
 (defun generate-fontset-menu ()
-  (let ((fontsets (fontset-list))
-	fontset-name
-	l)
-    (while fontsets
-      (setq fontset-name (car fontsets) fontsets (cdr fontsets))
-      (setq l (cons (list (fontset-plain-name fontset-name) fontset-name) l)))
+  (let (l)
+    (dolist (fontset (fontset-list))
+      (or (string-match "fontset-default$" fontset)
+	  (push (list (fontset-plain-name fontset) fontset) l)))
     (cons "Fontset"
-	  (sort l (function (lambda (x y) (string< (car x) (car y))))))))
+	  (sort l #'(lambda (x y) (string< (car x) (car y)))))))
 
 (defun fontset-plain-name (fontset)
   "Return a plain and descriptive name of FONTSET."