From: Kenichi Handa <handa@m17n.org>
Date: Fri, 6 Nov 1998 10:59:09 +0000 (+0000)
Subject: (create-fontset-from-fontset-spec): Give correct arg to `error'.
X-Git-Tag: emacs-20.4~1294
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=86e411c97ce184fa554fa1e3dc70bbc0c62ac50b;p=emacs.git

(create-fontset-from-fontset-spec): Give correct arg to `error'.
---

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 1d53cad219b..697ad1508cb 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -473,7 +473,7 @@ It returns a name of the created fontset."
 	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))