(w32-charset-info-alist): Use ansi fonts for

iso10646-1 if unicode is not available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4baedc19edf095ac8b7ebf191b98dfea7d343d0f..24ba526b34305a85e270bc181b578b6be25ce681 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-24  Jason Rumney  <jasonr@gnu.org>
+
+       * w32-fns.el (w32-charset-info-alist): Use ansi fonts for
+       iso10646-1 if unicode is not available.
+
 2002-02-22  Stefan Monnier  <monnier@cs.yale.edu>
 
        * diff-mode.el (diff-end-of-hunk): Watch out for ambiguous headers.

diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index f4fb5e1f50f69cbe6e90d7ec487889eac7e93bb9..f4a309fdebf0f1e6b5ebba96b5d12b9478ac5e44 100644 (file)
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -403,9 +403,11 @@ bit output with no translation."
       (w32-add-charset-info "mac" 'w32-charset-mac nil)))
 (if (boundp 'w32-unicode-charset-defined)
     (progn
-      (w32-add-charset-info "iso10646" 'w32-charset-unicode t)
-      (w32-add-charset-info "unicode" 'w32-charset-unicode t)))
-
+      (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t)
+      (w32-add-charset-info "unicode" 'w32-charset-unicode t))
+  ;; Most Windows fonts cover a large part of the Unicode range,
+  ;; so use ansi fonts if unicode is not an option.
+  (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
 
 (make-obsolete-variable 'w32-enable-italics
                         'w32-enable-synthesized-fonts "21.1")