diff options
| author | Kenichi Handa <handa@m17n.org> | 1999-04-10 02:23:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1999-04-10 02:23:06 +0000 |
| commit | 75447cdd777d0bd41dcca691b27f2c7a3b892e90 (patch) | |
| tree | 87146ae4bd7c66d09f8c8da76dc99e4a23171e7b /lisp/international | |
| parent | 79091e9c64514eeb6dad7a7c245a453d8fa08227 (diff) | |
| download | emacs-75447cdd777d0bd41dcca691b27f2c7a3b892e90.tar.gz | |
(create-fontset-from-fontset-spec):
Don't register duplicated alias fontset names.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/fontset.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 6a3867d244c..49430477e48 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -520,10 +520,12 @@ It returns a name of the created fontset." (or (rassoc alias fontset-alias-alist) (setq fontset-alias-alist (cons (cons name alias) fontset-alias-alist))))) - (setq fontset-alias-alist - (cons (cons name resolved-ascii-font) - fontset-alias-alist)) + (or (rassoc resolved-ascii-font fontset-alias-alist) + (setq fontset-alias-alist + (cons (cons name resolved-ascii-font) + fontset-alias-alist))) (or (equal ascii-font resolved-ascii-font) + (rassoc ascii-font fontset-alias-alist) (setq fontset-alias-alist (cons (cons name ascii-font) fontset-alias-alist))) @@ -563,9 +565,10 @@ It returns a name of the created fontset." (cons (cons 'ascii new-ascii-font) nonascii-fontlist)) uninstantiated-fontset-alist)) - (setq fontset-alias-alist - (cons (cons new-name new-ascii-font) - fontset-alias-alist))) + (or (rassoc new-ascii-font fontset-alias-alist) + (setq fontset-alias-alist + (cons (cons new-name new-ascii-font) + fontset-alias-alist)))) (setq style-variant (cdr style-variant))))))) name)) |