Mercurial > emacs
changeset 23655:8aa7d51024b2
(create-fontset-from-fontset-spec): Give correct arg to `error'.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 06 Nov 1998 10:59:09 +0000 |
| parents | e70afb86651a |
| children | 031653c4634a |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))