diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-06-26 03:29:58 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-06-26 03:29:58 +0000 |
| commit | 8f90191767f3960de4da62904a4fa752acf32ca5 (patch) | |
| tree | f60bdeeb33dd370de8fa54adbffd0a7c83a759a7 | |
| parent | fd28674852d3d02c82e1f4dc9469b3a3233e6071 (diff) | |
| download | emacs-8f90191767f3960de4da62904a4fa752acf32ca5.tar.gz | |
(create-fontset-from-fontset-spec):
Generate ASCII font names of style variants fontsets from a
resolved ASCII font name of a base fontset.
| -rw-r--r-- | lisp/international/fontset.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 955cccd5ed2..684495bc57d 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -461,7 +461,7 @@ signaled unless the optional 3rd argument NOERROR is non-nil." (error "Invalid fontset spec: %s" fontset-spec)) (let ((idx (match-end 0)) (name (match-string 0 fontset-spec)) - fontlist full-fontlist ascii-font charset) + fontlist full-fontlist ascii-font resolved-ascii-font charset) (if (query-fontset name) (or noerror (error "Fontset \"%s\" already exists")) @@ -493,14 +493,14 @@ signaled unless the optional 3rd argument NOERROR is non-nil." (or (rassoc alias fontset-alias-alist) (setq fontset-alias-alist (cons (cons name alias) fontset-alias-alist))))) - (let ((resolved-ascii-font (cdr (assq 'ascii full-fontlist)))) - (setq fontset-alias-alist - (cons (cons name resolved-ascii-font) - fontset-alias-alist)) - (or (equal ascii-font resolved-ascii-font) - (setq fontset-alias-alist - (cons (cons name ascii-font) - fontset-alias-alist)))) + (setq resolved-ascii-font (cdr (assq 'ascii full-fontlist))) + (setq fontset-alias-alist + (cons (cons name resolved-ascii-font) + fontset-alias-alist)) + (or (equal ascii-font resolved-ascii-font) + (setq fontset-alias-alist + (cons (cons name ascii-font) + fontset-alias-alist))) ;; At last, handle style variants. (if (eq style-variant t) @@ -526,7 +526,8 @@ signaled unless the optional 3rd argument NOERROR is non-nil." (when new-name ;; Modify ASCII font name for the style... (setq new-ascii-font - (or font (x-modify-font-name ascii-font style))) + (or font + (x-modify-font-name resolved-ascii-font style))) ;; but leave fonts for the other charsets unmodified ;; for the momemnt. They are modified for the style ;; in instantiate-fontset. |