diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 13:24:35 +0000 |
| commit | a1506d2977a8c2eb982ad0b59416009cdfaa6f51 (patch) | |
| tree | 3cbb868ad6eb3b188d5064389538c490c124d8be /lisp/international/fontset.el | |
| parent | f1180544bb5ff44cdb45b8734734294b0a2fa7a4 (diff) | |
| download | emacs-a1506d2977a8c2eb982ad0b59416009cdfaa6f51.tar.gz | |
Trailing whitepace deleted.
Diffstat (limited to 'lisp/international/fontset.el')
| -rw-r--r-- | lisp/international/fontset.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 53cf2479ad2..f845837c8db 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -432,7 +432,7 @@ variable `x-font-name-charset-alist'), add that information to FONTLIST." (or (assq charset fontlist) (setq fontlist (cons (cons charset ascii-font-spec) fontlist)))))))) - + fontlist)) (defun fontset-name-p (fontset) @@ -510,7 +510,7 @@ It returns a name of the created fontset." (name (match-string 0 fontset-spec)) xlfd-fields charset fontlist ascii-font) (if (query-fontset name) - (or noerror + (or noerror (error "Fontset \"%s\" already exists" name)) (setq xlfd-fields (x-decompose-font-name name)) (or xlfd-fields |