Mercurial > emacs
changeset 39549:044b46ec5fff
(face-font-registry-alternatives) [windows-nt]: Make
gb2312 an alias for gb2312.1980.
| author | Andrew Innes <andrewi@gnu.org> |
|---|---|
| date | Thu, 04 Oct 2001 17:14:53 +0000 |
| parents | 6192be048459 |
| children | 60435e699582 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/faces.el Thu Oct 04 17:14:01 2001 +0000 +++ b/lisp/faces.el Thu Oct 04 17:14:53 2001 +0000 @@ -79,10 +79,15 @@ ;; This is defined originally in xfaces.c. (defcustom face-font-registry-alternatives - '(("gb2312.1980" "gb2312.80&gb8565.88" "gbk*") - ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978") - ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987") - ("muletibetan-2" "muletibetan-0")) + (if (eq system-type 'windows-nt) + '(("gb2312.1980" "gb2312") + ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978") + ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987") + ("muletibetan-2" "muletibetan-0")) + '(("gb2312.1980" "gb2312.80&gb8565.88" "gbk*") + ("jisx0208.1990" "jisx0208.1983" "jisx0208.1978") + ("ksc5601.1989" "ksx1001.1992" "ksc5601.1987") + ("muletibetan-2" "muletibetan-0"))) "*Alist of alternative font registry names. Each element has the the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...). If fonts of registry REGISTRY can be loaded, font selection