Commit 9074a684 authored by Eli Zaretskii's avatar Eli Zaretskii

Prefer 'Qfoo' to 'intern ("foo")' in w32 source files

 src/w32term.c (queue_notifications):
 src/w32inevt.c (handle_file_notifications):
 src/w32font.c (w32_enumfont_pattern_entity): Prefer 'Qfoo' to
 'intern ("foo")'.
parent a2e6668d
2015-02-21 Eli Zaretskii <eliz@gnu.org>
* w32term.c (queue_notifications):
* w32inevt.c (handle_file_notifications):
* w32font.c (w32_enumfont_pattern_entity): Prefer 'Qfoo' to
'intern ("foo")'.
2015-02-21 Paul Eggert <eggert@cs.ucla.edu>
Prefer 'Qfoo' to 'intern ("foo")'
......
......@@ -1072,11 +1072,11 @@ w32_enumfont_pattern_entity (Lisp_Object frame,
truetype so that this information is not any worse than we could
have obtained later. */
if (EQ (backend, Quniscribe) && (full_type & NTMFLAGS_OPENTYPE))
tem = intern ("opentype");
tem = Qopentype;
else if (font_type & TRUETYPE_FONTTYPE)
tem = intern ("truetype");
else if (full_type & NTM_PS_OPENTYPE)
tem = intern ("postscript");
tem = Qpostscript;
else if (full_type & NTM_TYPE1)
tem = intern ("type1");
else if (font_type & RASTER_FONTTYPE)
......@@ -1875,10 +1875,10 @@ static Lisp_Object
w32_to_fc_weight (int n)
{
if (n >= FW_EXTRABOLD) return intern ("black");
if (n >= FW_BOLD) return intern ("bold");
if (n >= FW_BOLD) return Qbold;
if (n >= FW_SEMIBOLD) return intern ("demibold");
if (n >= FW_NORMAL) return intern ("medium");
return intern ("light");
return Qlight;
}
/* Fill in all the available details of LOGFONT from FONT_SPEC. */
......
......@@ -631,7 +631,7 @@ handle_file_notifications (struct input_event *hold_quit)
if (notification_buffer_in_use)
{
DWORD info_size = notifications_size;
Lisp_Object cs = intern ("utf-16le");
Lisp_Object cs = Qutf_16le;
Lisp_Object obj = w32_get_watch_object (notifications_desc);
/* notifications_size could be zero when the buffer of
......
......@@ -3223,7 +3223,7 @@ queue_notifications (struct input_event *event, W32Msg *msg, struct frame *f,
if (notification_buffer_in_use)
{
DWORD info_size = notifications_size;
Lisp_Object cs = intern ("utf-16le");
Lisp_Object cs = Qutf_16le;
Lisp_Object obj = w32_get_watch_object (notifications_desc);
/* notifications_size could be zero when the buffer of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment