From 86e411c97ce184fa554fa1e3dc70bbc0c62ac50b Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 6 Nov 1998 10:59:09 +0000 Subject: [PATCH] (create-fontset-from-fontset-spec): Give correct arg to `error'. --- lisp/international/fontset.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2