diff options
| author | Kenichi Handa | 2004-04-14 05:13:56 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2004-04-14 05:13:56 +0000 |
| commit | 3662d9e761ad6b87d71fcf970b7d2d8776ec9ef4 (patch) | |
| tree | d6fae0e9d41724c50cd144ac40d5f21d7b9a2faa | |
| parent | c0dac1aa383b506a0b79795afb6f0636154839d3 (diff) | |
| download | emacs-3662d9e761ad6b87d71fcf970b7d2d8776ec9ef4.tar.gz emacs-3662d9e761ad6b87d71fcf970b7d2d8776ec9ef4.zip | |
(x-complement-fontset-spec): Don't
change CHARSET_REGISTRY and CHARSET_ENCODING fields.
| -rw-r--r-- | lisp/international/fontset.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 7963fc9e6c3..81fcaa9813c 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -527,7 +527,7 @@ replaced by the corresponding fields in XLFD-FIELDS." | |||
| 527 | (setq font-spec (make-vector 6 nil)) | 527 | (setq font-spec (make-vector 6 nil)) |
| 528 | (dotimes (i 6) | 528 | (dotimes (i 6) |
| 529 | (aset font-spec i (match-string (1+ i) name))) | 529 | (aset font-spec i (match-string (1+ i) name))) |
| 530 | (dotimes (i 6) | 530 | (dotimes (i 5) |
| 531 | (if (string-match "^[*-]+$" (aref font-spec i)) | 531 | (if (string-match "^[*-]+$" (aref font-spec i)) |
| 532 | (aset font-spec i (aref default-spec i)))) | 532 | (aset font-spec i (aref default-spec i)))) |
| 533 | (setcar (cdr elt) font-spec)))) | 533 | (setcar (cdr elt) font-spec)))) |