aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJuanma Barranquero2011-11-20 20:35:27 +0100
committerJuanma Barranquero2011-11-20 20:35:27 +0100
commitfe7a3057a38e896a9c4ad12c831fb84a5d808691 (patch)
treebcb23e440925fde576409d960a71ee6df320331a /src
parent09f5d05492b6c78421c71858d0d5c4434218b8fc (diff)
downloademacs-fe7a3057a38e896a9c4ad12c831fb84a5d808691.tar.gz
emacs-fe7a3057a38e896a9c4ad12c831fb84a5d808691.zip
Fix typos.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/ChangeLog.12
-rw-r--r--src/ChangeLog.102
-rw-r--r--src/ChangeLog.1144
-rw-r--r--src/ChangeLog.92
-rw-r--r--src/keyboard.c2
-rw-r--r--src/nsfont.m14
-rw-r--r--src/nsterm.h2
-rw-r--r--src/w32fns.c2
-rw-r--r--src/w32font.c20
-rw-r--r--src/w32menu.c6
-rw-r--r--src/w32uniscribe.c4
12 files changed, 54 insertions, 50 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 94a02e6e9ba..d0d3363d522 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
12011-11-20 Juanma Barranquero <lekktu@gmail.com>
2
3 * nsfont.m (syms_of_nsfont) <ns-reg-to-script>: Fix typo.
4
12011-11-20 Martin Rudalics <rudalics@gmx.at> 52011-11-20 Martin Rudalics <rudalics@gmx.at>
2 6
3 * window.c (Fset_window_combination_limit): Rename argument 7 * window.c (Fset_window_combination_limit): Rename argument
diff --git a/src/ChangeLog.1 b/src/ChangeLog.1
index efe77648458..7fef45f36da 100644
--- a/src/ChangeLog.1
+++ b/src/ChangeLog.1
@@ -2237,7 +2237,7 @@
2237 2237
2238 * data.c (Fset): 2238 * data.c (Fset):
2239 If Vautoload_queue non-nil, record function and old definition 2239 If Vautoload_queue non-nil, record function and old definition
2240 by consing onto Vautoload_qeueue. 2240 by consing onto Vautoload_queue.
2241 2241
2242 * fns.c (Fprovide): 2242 * fns.c (Fprovide):
2243 If Vautoload_queue is non-nil, record old value of Vfeatures. 2243 If Vautoload_queue is non-nil, record old value of Vfeatures.
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 1992ef96e0a..99ab02577d5 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -18755,7 +18755,7 @@
18755 18755
187562003-05-21 Dave Love <fx@gnu.org> 187562003-05-21 Dave Love <fx@gnu.org>
18757 18757
18758 [Merged from unicode branch.] 18758 [Merged from Unicode branch.]
18759 18759
18760 * xfns.c (x_window, x_window): Use use_xim. 18760 * xfns.c (x_window, x_window): Use use_xim.
18761 18761
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11
index 896f08916b3..07d4f4ec116 100644
--- a/src/ChangeLog.11
+++ b/src/ChangeLog.11
@@ -4839,7 +4839,7 @@
4839 4839
48402010-08-13 Jason Rumney <jasonr@gnu.org> 48402010-08-13 Jason Rumney <jasonr@gnu.org>
4841 4841
4842 * w32menu.c (simple_dialog_show): Use unicode message box if available. 4842 * w32menu.c (simple_dialog_show): Use Unicode message box if available.
4843 (MessageBoxW_Proc): New function typedef. 4843 (MessageBoxW_Proc): New function typedef.
4844 (unicode-message-box): New function pointer. 4844 (unicode-message-box): New function pointer.
4845 (globals_of_w32menu): Import it from user32.dll. (Bug#5629) 4845 (globals_of_w32menu): Import it from user32.dll. (Bug#5629)
@@ -8991,8 +8991,8 @@
89912010-04-13 Jan Djärv <jan.h.d@swipnet.se> 89912010-04-13 Jan Djärv <jan.h.d@swipnet.se>
8992 8992
8993 * gtkutil.c (xg_set_geometry): Set geometry for PPosition also. 8993 * gtkutil.c (xg_set_geometry): Set geometry for PPosition also.
8994 (x_wm_set_size_hint): Dont set position flags, gtk_window_parse_geometry 8994 (x_wm_set_size_hint): Don't set position flags,
8995 does that. 8995 gtk_window_parse_geometry does that.
8996 8996
8997 * xfns.c (Fx_create_frame, x_create_tip_frame): Set default border width 8997 * xfns.c (Fx_create_frame, x_create_tip_frame): Set default border width
8998 to zero. 8998 to zero.
@@ -9864,8 +9864,8 @@
9864 9864
98652010-01-27 Jason Rumney <jasonr@gnu.org> 98652010-01-27 Jason Rumney <jasonr@gnu.org>
9866 9866
9867 * w32inevt.c (w32_kbd_patch_key): Save the unicode character. 9867 * w32inevt.c (w32_kbd_patch_key): Save the Unicode character.
9868 (key_event): Use unicode for characters 128 and higher (Bug#4567). 9868 (key_event): Use Unicode for characters 128 and higher (Bug#4567).
9869 9869
98702010-01-27 Kenichi Handa <handa@m17n.org> 98702010-01-27 Kenichi Handa <handa@m17n.org>
9871 9871
@@ -11541,7 +11541,7 @@
11541 (syms_of_nsfont): Declare it. 11541 (syms_of_nsfont): Declare it.
11542 (ns_registry_to_script): New function. 11542 (ns_registry_to_script): New function.
11543 (ns_get_req_script): Call it. 11543 (ns_get_req_script): Call it.
11544 (ns_findfonts): Don't give up on non-unicode registry. 11544 (ns_findfonts): Don't give up on non-Unicode registry.
11545 11545
11546 * font.c (DEFAULT_ENCODING) [HAVE_NS]: Remove special case. 11546 * font.c (DEFAULT_ENCODING) [HAVE_NS]: Remove special case.
11547 11547
@@ -17147,10 +17147,10 @@
17147 17147
171482008-07-30 Jason Rumney <jasonr@gnu.org> 171482008-07-30 Jason Rumney <jasonr@gnu.org>
17149 17149
17150 * w32font.h (struct w32font_info): Use unicode version of textmetrics. 17150 * w32font.h (struct w32font_info): Use Unicode version of textmetrics.
17151 17151
17152 * w32font.c (w32font_encode_char): Leave as unicode if in range. 17152 * w32font.c (w32font_encode_char): Leave as Unicode if in range.
17153 (w32font_open_internal): Get unicode version of textmetrics. 17153 (w32font_open_internal): Get Unicode version of textmetrics.
17154 Don't enable or disable glyph indices here. 17154 Don't enable or disable glyph indices here.
17155 (w32font_open): Disable use of glyph indices. 17155 (w32font_open): Disable use of glyph indices.
17156 17156
@@ -19178,7 +19178,7 @@
191782008-06-10 Jason Rumney <jasonr@gnu.org> 191782008-06-10 Jason Rumney <jasonr@gnu.org>
19179 19179
19180 * w32uniscribe.c (add_opentype_font_name_to_list): 19180 * w32uniscribe.c (add_opentype_font_name_to_list):
19181 Skip non unicode fonts. 19181 Skip non Unicode fonts.
19182 19182
191832008-06-10 Chong Yidong <cyd@stupidchicken.com> 191832008-06-10 Chong Yidong <cyd@stupidchicken.com>
19184 19184
@@ -19647,7 +19647,7 @@
19647 `raster' specified. 19647 `raster' specified.
19648 (add_font_entity_to_list): Allow non-opentype truetype fonts back 19648 (add_font_entity_to_list): Allow non-opentype truetype fonts back
19649 in the uniscribe backend, but disallow any font that has no 19649 in the uniscribe backend, but disallow any font that has no
19650 unicode subrange support. 19650 Unicode subrange support.
19651 19651
196522008-05-29 Juanma Barranquero <lekktu@gmail.com> 196522008-05-29 Juanma Barranquero <lekktu@gmail.com>
19653 19653
@@ -21813,8 +21813,8 @@
218132008-03-06 Jason Rumney <jasonr@gnu.org> 218132008-03-06 Jason Rumney <jasonr@gnu.org>
21814 21814
21815 * w32font.c (w32_registry): Take font_type argument. Use ANSI 21815 * w32font.c (w32_registry): Take font_type argument. Use ANSI
21816 when charset not specified. Only translate ANSI to unicode when 21816 when charset not specified. Only translate ANSI to Unicode when
21817 font_type is truetype. 21817 font_type is TrueType.
21818 (w32font_coverage_ok): New function. 21818 (w32font_coverage_ok): New function.
21819 (add_font_entity_to_list): Use it to filter unsuitable fonts. 21819 (add_font_entity_to_list): Use it to filter unsuitable fonts.
21820 21820
@@ -23463,10 +23463,10 @@
23463 (w32font_list, w32font_match): Use it. 23463 (w32font_list, w32font_match): Use it.
23464 (w32font_open): Don't populate subranges. 23464 (w32font_open): Don't populate subranges.
23465 (w32font_has_char): Use script Lisp symbols, not subrange bitmask. 23465 (w32font_has_char): Use script Lisp symbols, not subrange bitmask.
23466 (w32font_encode_char): Always return unicode code-point as-is. 23466 (w32font_encode_char): Always return Unicode code-point as-is.
23467 (w32font_text_extents): Supply a transformation matrix to 23467 (w32font_text_extents): Supply a transformation matrix to
23468 GetGlyphOutline. Never look up by glyph index. Avoid looping 23468 GetGlyphOutline. Never look up by glyph index. Avoid looping
23469 twice. Use unicode version of GetTexExtentPoint32 instead of 23469 twice. Use Unicode version of GetTexExtentPoint32 instead of
23470 glyph index version. 23470 glyph index version.
23471 (set_fonts_frame): Remove. 23471 (set_fonts_frame): Remove.
23472 (w32_enumfont_pattern_entity): Add frame parameter, use it to 23472 (w32_enumfont_pattern_entity): Add frame parameter, use it to
@@ -25425,16 +25425,16 @@
25425 (pfnGetFontUnicodeRanges): New dynamically loaded function. 25425 (pfnGetFontUnicodeRanges): New dynamically loaded function.
25426 (w32_initialize): Try to load it. 25426 (w32_initialize): Try to load it.
25427 (x_get_font_repertory): Use it if available. 25427 (x_get_font_repertory): Use it if available.
25428 (w32_encode_char): Add shortcut for unicode output. 25428 (w32_encode_char): Add shortcut for Unicode output.
25429 25429
25430 * w32fns.c (w32_load_system_font): Default charset to -1. 25430 * w32fns.c (w32_load_system_font): Default charset to -1.
25431 (x_to_w32_charset): Match all fonts for unicode. 25431 (x_to_w32_charset): Match all fonts for Unicode.
25432 (w32_to_x_charset): New parameter matching. Don't return partial 25432 (w32_to_x_charset): New parameter matching. Don't return partial
25433 or wildcard charsets. 25433 or wildcard charsets.
25434 (w32_to_all_x_charsets): Don't return partial or wildcard charsets. 25434 (w32_to_all_x_charsets): Don't return partial or wildcard charsets.
25435 (w32_codepage_for_font): Return CP_UNICODE for unicode. 25435 (w32_codepage_for_font): Return CP_UNICODE for Unicode.
25436 (w32_to_x_font): Match charset to real charset. 25436 (w32_to_x_font): Match charset to real charset.
25437 (enum_font_cb2): Always list unicode versions. 25437 (enum_font_cb2): Always list Unicode versions.
25438 25438
25439 * makefile.w32-in (temacs): Increase EMHEAP. 25439 * makefile.w32-in (temacs): Increase EMHEAP.
25440 25440
@@ -25458,7 +25458,7 @@
25458 25458
25459 * w32fns.c (Fx_create_frame, x_create_tip_frame): Use new version 25459 * w32fns.c (Fx_create_frame, x_create_tip_frame): Use new version
25460 of x_new_fontset. 25460 of x_new_fontset.
25461 (w32_load_system_font): Initialize charset as unicode. 25461 (w32_load_system_font): Initialize charset as Unicode.
25462 font_info.encoding becomes encoding_type. 25462 font_info.encoding becomes encoding_type.
25463 (w32_to_x_font): Use decode_coding_c_string in place of decode_coding. 25463 (w32_to_x_font): Use decode_coding_c_string in place of decode_coding.
25464 (x_to_w32_font): Use encode_coding_object in place of encode_coding. 25464 (x_to_w32_font): Use encode_coding_object in place of encode_coding.
@@ -27685,7 +27685,7 @@
27685 * xterm.c (handle_one_xevent): Revert to counting chars not bytes. 27685 * xterm.c (handle_one_xevent): Revert to counting chars not bytes.
27686 27686
27687 * w32term.c (w32_read_socket) <WM_CHAR>: Decode characters outside 27687 * w32term.c (w32_read_socket) <WM_CHAR>: Decode characters outside
27688 the unicode range available in MULE by locale-coding-system. 27688 the Unicode range available in MULE by locale-coding-system.
27689 Improve dbcs lead byte detection. Set event timestamp and modifiers 27689 Improve dbcs lead byte detection. Set event timestamp and modifiers
27690 earlier. 27690 earlier.
27691 27691
@@ -30873,7 +30873,7 @@
308732007-06-17 Jason Rumney <jasonr@gnu.org> 308732007-06-17 Jason Rumney <jasonr@gnu.org>
30874 30874
30875 * w32menu.c (add_menu_item): Don't use multibyte string functions on 30875 * w32menu.c (add_menu_item): Don't use multibyte string functions on
30876 unicode strings. 30876 Unicode strings.
30877 30877
308782007-06-16 Juanma Barranquero <lekktu@gmail.com> 308782007-06-16 Juanma Barranquero <lekktu@gmail.com>
30879 30879
diff --git a/src/ChangeLog.9 b/src/ChangeLog.9
index 9e7bd24f792..6f007992bef 100644
--- a/src/ChangeLog.9
+++ b/src/ChangeLog.9
@@ -5150,7 +5150,7 @@
51502000-11-27 Jason Rumney <jasonr@gnu.org> 51502000-11-27 Jason Rumney <jasonr@gnu.org>
5151 5151
5152 * w32fns.c (w32_load_system_font): Always mark font as double byte 5152 * w32fns.c (w32_load_system_font): Always mark font as double byte
5153 if codepage is unicode. 5153 if codepage is Unicode.
5154 5154
51552000-11-27 Gerd Moellmann <gerd@gnu.org> 51552000-11-27 Gerd Moellmann <gerd@gnu.org>
5156 5156
diff --git a/src/keyboard.c b/src/keyboard.c
index 80873fcb57a..9b4ba427c24 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -4813,7 +4813,7 @@ const char *const lispy_function_keys[] =
4813 "ico-00", /* VK_ICO_00 0xE4 */ 4813 "ico-00", /* VK_ICO_00 0xE4 */
4814 0, /* VK_PROCESSKEY 0xE5 - used by IME */ 4814 0, /* VK_PROCESSKEY 0xE5 - used by IME */
4815 "ico-clear", /* VK_ICO_CLEAR 0xE6 */ 4815 "ico-clear", /* VK_ICO_CLEAR 0xE6 */
4816 0, /* VK_PACKET 0xE7 - used to pass unicode chars */ 4816 0, /* VK_PACKET 0xE7 - used to pass Unicode chars */
4817 0, /* 0xE8 */ 4817 0, /* 0xE8 */
4818 "reset", /* VK_OEM_RESET 0xE9 */ 4818 "reset", /* VK_OEM_RESET 0xE9 */
4819 "jump", /* VK_OEM_JUMP 0xEA */ 4819 "jump", /* VK_OEM_JUMP 0xEA */
diff --git a/src/nsfont.m b/src/nsfont.m
index c4d9123faef..7d691ced6e1 100644
--- a/src/nsfont.m
+++ b/src/nsfont.m
@@ -256,7 +256,7 @@ ns_char_width (NSFont *sfont, int c)
256 256
257 257
258/* Return whether set1 covers set2 to a reasonable extent given by pct. 258/* Return whether set1 covers set2 to a reasonable extent given by pct.
259 We check, out of each 16 unicode char range containing chars in set2, 259 We check, out of each 16 Unicode char range containing chars in set2,
260 whether at least one character is present in set1. 260 whether at least one character is present in set1.
261 This must be true for pct of the pairs to consider it covering. */ 261 This must be true for pct of the pairs to consider it covering. */
262static BOOL 262static BOOL
@@ -297,7 +297,7 @@ static NSString
297 297
298 298
299/* Convert OTF 4-letter script code to emacs script name. (Why can't 299/* Convert OTF 4-letter script code to emacs script name. (Why can't
300 everyone just use some standard unicode names for these?) */ 300 everyone just use some standard Unicode names for these?) */
301static NSString 301static NSString
302*ns_otf_to_script (Lisp_Object otf) 302*ns_otf_to_script (Lisp_Object otf)
303{ 303{
@@ -329,7 +329,7 @@ static NSString
329 329
330/* Searches the :script, :lang, and :otf extra-bundle properties of the spec, 330/* Searches the :script, :lang, and :otf extra-bundle properties of the spec,
331 plus registry regular property, for something that can be mapped to a 331 plus registry regular property, for something that can be mapped to a
332 unicode script. Empty string returned if no script spec found. */ 332 Unicode script. Empty string returned if no script spec found. */
333static NSString 333static NSString
334*ns_get_req_script (Lisp_Object font_spec) 334*ns_get_req_script (Lisp_Object font_spec)
335{ 335{
@@ -385,7 +385,7 @@ accumulate_script_ranges (Lisp_Object arg, Lisp_Object range, Lisp_Object val)
385} 385}
386 386
387 387
388/* Use the unicode range information in Vchar_script_table to convert a script 388/* Use the Unicode range information in Vchar_script_table to convert a script
389 name into an NSCharacterSet. */ 389 name into an NSCharacterSet. */
390static NSCharacterSet 390static NSCharacterSet
391*ns_script_to_charset (NSString *scriptName) 391*ns_script_to_charset (NSString *scriptName)
@@ -426,7 +426,7 @@ static NSCharacterSet
426 If none are found, we reduce the percentage and try again, until 5%. 426 If none are found, we reduce the percentage and try again, until 5%.
427 This provides a font with at least some characters if such can be found. 427 This provides a font with at least some characters if such can be found.
428 We don't use isSupersetOfSet: because (a) it doesn't work on Tiger, and 428 We don't use isSupersetOfSet: because (a) it doesn't work on Tiger, and
429 (b) need approximate match as fonts covering full unicode ranges are rare. */ 429 (b) need approximate match as fonts covering full Unicode ranges are rare. */
430static NSSet 430static NSSet
431*ns_get_covering_families (NSString *script, float pct) 431*ns_get_covering_families (NSString *script, float pct)
432{ 432{
@@ -1292,7 +1292,7 @@ ns_uni_to_glyphs (struct nsfont_info *font_info, unsigned char block)
1292 if (!unichars || !(font_info->glyphs[block])) 1292 if (!unichars || !(font_info->glyphs[block]))
1293 abort (); 1293 abort ();
1294 1294
1295 /* create a string containing all unicode characters in this block */ 1295 /* create a string containing all Unicode characters in this block */
1296 for (idx = block<<8, i =0; i<0x100; idx++, i++) 1296 for (idx = block<<8, i =0; i<0x100; idx++, i++)
1297 if (idx < 0xD800 || idx > 0xDFFF) 1297 if (idx < 0xD800 || idx > 0xDFFF)
1298 unichars[i] = idx; 1298 unichars[i] = idx;
@@ -1487,5 +1487,5 @@ syms_of_nsfont (void)
1487 DEFSYM (Qroman, "roman"); 1487 DEFSYM (Qroman, "roman");
1488 DEFSYM (Qmedium, "medium"); 1488 DEFSYM (Qmedium, "medium");
1489 DEFVAR_LISP ("ns-reg-to-script", Vns_reg_to_script, 1489 DEFVAR_LISP ("ns-reg-to-script", Vns_reg_to_script,
1490 doc: /* Internal use: maps font registry to unicode script. */); 1490 doc: /* Internal use: maps font registry to Unicode script. */);
1491} 1491}
diff --git a/src/nsterm.h b/src/nsterm.h
index 574d31c962a..52246caac84 100644
--- a/src/nsterm.h
+++ b/src/nsterm.h
@@ -470,7 +470,7 @@ struct nsfont_info
470 XCharStruct max_bounds; 470 XCharStruct max_bounds;
471 /* we compute glyph codes and metrics on-demand in blocks of 256 indexed 471 /* we compute glyph codes and metrics on-demand in blocks of 256 indexed
472 by hibyte, lobyte */ 472 by hibyte, lobyte */
473 unsigned short **glyphs; /* map unicode index to glyph */ 473 unsigned short **glyphs; /* map Unicode index to glyph */
474 struct font_metrics **metrics; 474 struct font_metrics **metrics;
475}; 475};
476 476
diff --git a/src/w32fns.c b/src/w32fns.c
index 5b936195aa5..434861320a5 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -2943,7 +2943,7 @@ w32_wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
2943 break; 2943 break;
2944 2944
2945 case WM_IME_CHAR: 2945 case WM_IME_CHAR:
2946 /* If we can't get the IME result as unicode, use default processing, 2946 /* If we can't get the IME result as Unicode, use default processing,
2947 which will at least allow characters decodable in the system locale 2947 which will at least allow characters decodable in the system locale
2948 get through. */ 2948 get through. */
2949 if (!get_composition_string_fn) 2949 if (!get_composition_string_fn)
diff --git a/src/w32font.c b/src/w32font.c
index bd58e7e757b..5cc37c0e74f 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -462,7 +462,7 @@ w32font_has_char (Lisp_Object entity, int c)
462 Return a glyph code of FONT for character C (Unicode code point). 462 Return a glyph code of FONT for character C (Unicode code point).
463 If FONT doesn't have such a glyph, return FONT_INVALID_CODE. 463 If FONT doesn't have such a glyph, return FONT_INVALID_CODE.
464 464
465 For speed, the gdi backend uses unicode (Emacs calls encode_char 465 For speed, the gdi backend uses Unicode (Emacs calls encode_char
466 far too often for it to be efficient). But we still need to detect 466 far too often for it to be efficient). But we still need to detect
467 which characters are not supported by the font. 467 which characters are not supported by the font.
468 */ 468 */
@@ -620,7 +620,7 @@ w32font_text_extents (struct font *font, unsigned *code,
620 total_width = size.cx; 620 total_width = size.cx;
621 } 621 }
622 622
623 /* On 95/98/ME, only some unicode functions are available, so fallback 623 /* On 95/98/ME, only some Unicode functions are available, so fallback
624 on doing a dummy draw to find the total width. */ 624 on doing a dummy draw to find the total width. */
625 if (!total_width) 625 if (!total_width)
626 { 626 {
@@ -1153,7 +1153,7 @@ w32_enumfont_pattern_entity (Lisp_Object frame,
1153 else 1153 else
1154 ASET (entity, FONT_SIZE_INDEX, make_number (0)); 1154 ASET (entity, FONT_SIZE_INDEX, make_number (0));
1155 1155
1156 /* Cache unicode codepoints covered by this font, as there is no other way 1156 /* Cache Unicode codepoints covered by this font, as there is no other way
1157 of getting this information easily. */ 1157 of getting this information easily. */
1158 if (font_type & TRUETYPE_FONTTYPE) 1158 if (font_type & TRUETYPE_FONTTYPE)
1159 { 1159 {
@@ -1514,7 +1514,7 @@ add_font_entity_to_list (ENUMLOGFONTEX *logical_font,
1514 /* Skip non matching fonts. */ 1514 /* Skip non matching fonts. */
1515 1515
1516 /* For uniscribe backend, consider only truetype or opentype fonts 1516 /* For uniscribe backend, consider only truetype or opentype fonts
1517 that have some unicode coverage. */ 1517 that have some Unicode coverage. */
1518 if (match_data->opentype_only 1518 if (match_data->opentype_only
1519 && ((!(physical_font->ntmTm.ntmFlags & NTMFLAGS_OPENTYPE) 1519 && ((!(physical_font->ntmTm.ntmFlags & NTMFLAGS_OPENTYPE)
1520 && !(font_type & TRUETYPE_FONTTYPE)) 1520 && !(font_type & TRUETYPE_FONTTYPE))
@@ -1557,7 +1557,7 @@ add_font_entity_to_list (ENUMLOGFONTEX *logical_font,
1557 Lisp_Object spec_charset = AREF (match_data->orig_font_spec, 1557 Lisp_Object spec_charset = AREF (match_data->orig_font_spec,
1558 FONT_REGISTRY_INDEX); 1558 FONT_REGISTRY_INDEX);
1559 1559
1560 /* iso10646-1 fonts must contain unicode mapping tables. */ 1560 /* iso10646-1 fonts must contain Unicode mapping tables. */
1561 if (EQ (spec_charset, Qiso10646_1)) 1561 if (EQ (spec_charset, Qiso10646_1))
1562 { 1562 {
1563 if (!is_unicode) 1563 if (!is_unicode)
@@ -1572,7 +1572,7 @@ add_font_entity_to_list (ENUMLOGFONTEX *logical_font,
1572 && !(physical_font->ntmFontSig.fsUsb[0] & 0x007F001F)) 1572 && !(physical_font->ntmFontSig.fsUsb[0] & 0x007F001F))
1573 return 1; 1573 return 1;
1574 } 1574 }
1575 /* unicode-sip fonts must contain characters in unicode plane 2. 1575 /* unicode-sip fonts must contain characters in Unicode plane 2.
1576 so look for bit 57 (surrogates) in the Unicode subranges, plus 1576 so look for bit 57 (surrogates) in the Unicode subranges, plus
1577 the bits for CJK ranges that include those characters. */ 1577 the bits for CJK ranges that include those characters. */
1578 else if (EQ (spec_charset, Qunicode_sip)) 1578 else if (EQ (spec_charset, Qunicode_sip))
@@ -1597,7 +1597,7 @@ add_font_entity_to_list (ENUMLOGFONTEX *logical_font,
1597 ASET (entity, FONT_REGISTRY_INDEX, spec_charset); 1597 ASET (entity, FONT_REGISTRY_INDEX, spec_charset);
1598 } 1598 }
1599 /* Otherwise if using the uniscribe backend, report ANSI and DEFAULT 1599 /* Otherwise if using the uniscribe backend, report ANSI and DEFAULT
1600 fonts as unicode and skip other charsets. */ 1600 fonts as Unicode and skip other charsets. */
1601 else if (match_data->opentype_only) 1601 else if (match_data->opentype_only)
1602 { 1602 {
1603 if (logical_font->elfLogFont.lfCharSet == ANSI_CHARSET 1603 if (logical_font->elfLogFont.lfCharSet == ANSI_CHARSET
@@ -1640,7 +1640,7 @@ x_to_w32_charset (char * lpcs)
1640 if (strncmp (lpcs, "*-#", 3) == 0) 1640 if (strncmp (lpcs, "*-#", 3) == 0)
1641 return atoi (lpcs + 3); 1641 return atoi (lpcs + 3);
1642 1642
1643 /* All Windows fonts qualify as unicode. */ 1643 /* All Windows fonts qualify as Unicode. */
1644 if (!strncmp (lpcs, "iso10646", 8)) 1644 if (!strncmp (lpcs, "iso10646", 8))
1645 return DEFAULT_CHARSET; 1645 return DEFAULT_CHARSET;
1646 1646
@@ -1925,7 +1925,7 @@ w32_registry (LONG w32_charset, DWORD font_type)
1925{ 1925{
1926 char *charset; 1926 char *charset;
1927 1927
1928 /* If charset is defaulted, charset is unicode or unknown, depending on 1928 /* If charset is defaulted, charset is Unicode or unknown, depending on
1929 font type. */ 1929 font type. */
1930 if (w32_charset == DEFAULT_CHARSET) 1930 if (w32_charset == DEFAULT_CHARSET)
1931 return font_type == TRUETYPE_FONTTYPE ? Qiso10646_1 : Qunknown; 1931 return font_type == TRUETYPE_FONTTYPE ? Qiso10646_1 : Qunknown;
@@ -2080,7 +2080,7 @@ fill_in_logfont (FRAME_PTR f, LOGFONT *logfont, Lisp_Object font_spec)
2080 { 2080 {
2081 Lisp_Object key, val; 2081 Lisp_Object key, val;
2082 key = XCAR (tmp), val = XCDR (tmp); 2082 key = XCAR (tmp), val = XCDR (tmp);
2083 /* Only use QCscript if charset is not provided, or is unicode 2083 /* Only use QCscript if charset is not provided, or is Unicode
2084 and a single script is specified. This is rather crude, 2084 and a single script is specified. This is rather crude,
2085 and is only used to narrow down the fonts returned where 2085 and is only used to narrow down the fonts returned where
2086 there is a definite match. Some scripts, such as latin, han, 2086 there is a definite match. Some scripts, such as latin, han,
diff --git a/src/w32menu.c b/src/w32menu.c
index 39d101e7bd5..9b2d014cd58 100644
--- a/src/w32menu.c
+++ b/src/w32menu.c
@@ -1219,7 +1219,7 @@ simple_dialog_show (FRAME_PTR f, Lisp_Object contents, Lisp_Object header)
1219 is_simple_dialog, we don't need to worry about checking contents 1219 is_simple_dialog, we don't need to worry about checking contents
1220 to see what type of dialog to use. */ 1220 to see what type of dialog to use. */
1221 1221
1222 /* Use unicode if possible, so any language can be displayed. */ 1222 /* Use Unicode if possible, so any language can be displayed. */
1223 if (unicode_message_box) 1223 if (unicode_message_box)
1224 { 1224 {
1225 WCHAR *text, *title; 1225 WCHAR *text, *title;
@@ -1476,7 +1476,7 @@ add_menu_item (HMENU menu, widget_value *wv, HMENU item)
1476 utf16_string); 1476 utf16_string);
1477 if (!return_value) 1477 if (!return_value)
1478 { 1478 {
1479 /* On W9x/ME, unicode menus are not supported, though AppendMenuW 1479 /* On W9x/ME, Unicode menus are not supported, though AppendMenuW
1480 apparently does exist at least in some cases and appears to be 1480 apparently does exist at least in some cases and appears to be
1481 stubbed out to do nothing. out_string is UTF-8, but since 1481 stubbed out to do nothing. out_string is UTF-8, but since
1482 our standard menus are in English and this is only going to 1482 our standard menus are in English and this is only going to
@@ -1486,7 +1486,7 @@ add_menu_item (HMENU menu, widget_value *wv, HMENU item)
1486 AppendMenu (menu, fuFlags, 1486 AppendMenu (menu, fuFlags,
1487 item != NULL ? (UINT) item: (UINT) wv->call_data, 1487 item != NULL ? (UINT) item: (UINT) wv->call_data,
1488 out_string); 1488 out_string);
1489 /* Don't use unicode menus in future. */ 1489 /* Don't use Unicode menus in future. */
1490 unicode_append_menu = NULL; 1490 unicode_append_menu = NULL;
1491 } 1491 }
1492 1492
diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index 36197b3b28a..63da3b9e962 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -469,7 +469,7 @@ uniscribe_encode_char (struct font *font, int c)
469 469
470 /* Non BMP characters must be handled by the uniscribe shaping 470 /* Non BMP characters must be handled by the uniscribe shaping
471 engine as GDI functions (except blindly displaying lines of 471 engine as GDI functions (except blindly displaying lines of
472 unicode text) and the promising looking ScriptGetCMap do not 472 Unicode text) and the promising looking ScriptGetCMap do not
473 convert surrogate pairs to glyph indexes correctly. */ 473 convert surrogate pairs to glyph indexes correctly. */
474 { 474 {
475 items = (SCRIPT_ITEM *) alloca (sizeof (SCRIPT_ITEM) * 2 + 1); 475 items = (SCRIPT_ITEM *) alloca (sizeof (SCRIPT_ITEM) * 2 + 1);
@@ -581,7 +581,7 @@ add_opentype_font_name_to_list (ENUMLOGFONTEX *logical_font,
581 && font_type != TRUETYPE_FONTTYPE) 581 && font_type != TRUETYPE_FONTTYPE)
582 return 1; 582 return 1;
583 583
584 /* Skip fonts that have no unicode coverage. */ 584 /* Skip fonts that have no Unicode coverage. */
585 if (!physical_font->ntmFontSig.fsUsb[3] 585 if (!physical_font->ntmFontSig.fsUsb[3]
586 && !physical_font->ntmFontSig.fsUsb[2] 586 && !physical_font->ntmFontSig.fsUsb[2]
587 && !physical_font->ntmFontSig.fsUsb[1] 587 && !physical_font->ntmFontSig.fsUsb[1]