diff options
| author | Kenichi Handa | 2009-02-05 07:09:47 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2009-02-05 07:09:47 +0000 |
| commit | 3208a64a70cab8e3cdb1231ae4355759ab88c464 (patch) | |
| tree | 2e16f29cf71b9f52bdfc771ceff2a0282a11d945 | |
| parent | c4984fd89a8f4db5547a4a5cad21c676bda2ba8c (diff) | |
| download | emacs-3208a64a70cab8e3cdb1231ae4355759ab88c464.tar.gz emacs-3208a64a70cab8e3cdb1231ae4355759ab88c464.zip | |
(setup-default-fontset): Append entries for mathematical, instead of
prepending.
| -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 2d414d68df0..65b9e4a112d 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el | |||
| @@ -557,7 +557,7 @@ | |||
| 557 | (setcdr slot (vconcat (cdr slot) (vector (car math-subgroup)))) | 557 | (setcdr slot (vconcat (cdr slot) (vector (car math-subgroup)))) |
| 558 | (setcdr slot (vector (cadr slot) (car math-subgroup)))) | 558 | (setcdr slot (vector (cadr slot) (car math-subgroup)))) |
| 559 | (setq slot (list (nth 2 math-subgroup) (car math-subgroup))) | 559 | (setq slot (list (nth 2 math-subgroup) (car math-subgroup))) |
| 560 | (push slot script-representative-chars))) | 560 | (nconc script-representative-chars (list slot)))) |
| 561 | (set-fontset-font | 561 | (set-fontset-font |
| 562 | "fontset-default" | 562 | "fontset-default" |
| 563 | (cons (car math-subgroup) (nth 1 math-subgroup)) | 563 | (cons (car math-subgroup) (nth 1 math-subgroup)) |