# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 910349949 0
# Node ID 8aa7d51024b296f32d78274f623ce260da0deeab
# Parent  e70afb86651adedd5d52a8dbb627d146cbe20d59
(create-fontset-from-fontset-spec): Give correct arg to `error'.

diff -r e70afb86651a -r 8aa7d51024b2 lisp/international/fontset.el
--- a/lisp/international/fontset.el	Fri Nov 06 10:59:09 1998 +0000
+++ b/lisp/international/fontset.el	Fri Nov 06 10:59:09 1998 +0000
@@ -473,7 +473,7 @@
 	fontlist full-fontlist ascii-font resolved-ascii-font charset)
     (if (query-fontset name)
 	(or noerror 
-	    (error "Fontset \"%s\" already exists"))
+	    (error "Fontset \"%s\" already exists" name))
       ;; At first, extract pairs of charset and fontname from FONTSET-SPEC.
       (while (string-match "[, \t\n]*\\([^:]+\\):\\([^,]+\\)" fontset-spec idx)
 	(setq idx (match-end 0))