aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2015-01-05 22:13:58 +0200
committerEli Zaretskii2015-01-05 22:13:58 +0200
commit5b5dab1281bc47e36b6fb40b88a3ff2241657469 (patch)
tree830d59d82512e40991c388fa2484e78cca8cb652 /src
parentbc78ff2603b8c062dbd8f93f421c3412e36e343f (diff)
downloademacs-5b5dab1281bc47e36b6fb40b88a3ff2241657469.tar.gz
emacs-5b5dab1281bc47e36b6fb40b88a3ff2241657469.zip
MS-Windows followup to previous commit
src/w32proc.c, src/w32.h, src/w32fns.c, src/w32font.c, src/w32menu.c: src/w32notify.c, src/w32proc.c, src/w32select.c, src/w32term.c: src/w32uniscribe.c: Remove declarations of Q* variables that represent symbols.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog6
-rw-r--r--src/w32.c2
-rw-r--r--src/w32.h1
-rw-r--r--src/w32fns.c13
-rw-r--r--src/w32font.c45
-rw-r--r--src/w32menu.c2
-rw-r--r--src/w32notify.c4
-rw-r--r--src/w32proc.c2
-rw-r--r--src/w32select.c8
-rw-r--r--src/w32term.c4
-rw-r--r--src/w32uniscribe.c4
11 files changed, 8 insertions, 83 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index b068056667b..8cc775bef40 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
12015-01-05 Eli Zaretskii <eliz@gnu.org>
2
3 * w32proc.c, w32.h, w32fns.c, w32font.c, w32menu.c, w32notify.c:
4 * w32proc.c, w32select.c, w32term.c, w32uniscribe.c: Remove
5 declarations of Q* variables that represent symbols.
6
12015-01-05 Paul Eggert <eggert@cs.ucla.edu> 72015-01-05 Paul Eggert <eggert@cs.ucla.edu>
2 8
3 Use 0 for Qnil 9 Use 0 for Qnil
diff --git a/src/w32.c b/src/w32.c
index 3237c7b04c7..31b13289b57 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -242,8 +242,6 @@ typedef struct _REPARSE_DATA_BUFFER {
242typedef HRESULT (WINAPI * ShGetFolderPath_fn) 242typedef HRESULT (WINAPI * ShGetFolderPath_fn)
243 (IN HWND, IN int, IN HANDLE, IN DWORD, OUT char *); 243 (IN HWND, IN int, IN HANDLE, IN DWORD, OUT char *);
244 244
245Lisp_Object QCloaded_from;
246
247void globals_of_w32 (void); 245void globals_of_w32 (void);
248static DWORD get_rid (PSID); 246static DWORD get_rid (PSID);
249static int is_symlink (const char *); 247static int is_symlink (const char *);
diff --git a/src/w32.h b/src/w32.h
index a8a525cbd90..835557d5ec7 100644
--- a/src/w32.h
+++ b/src/w32.h
@@ -172,7 +172,6 @@ extern void init_timers (void);
172extern int _sys_read_ahead (int fd); 172extern int _sys_read_ahead (int fd);
173extern int _sys_wait_accept (int fd); 173extern int _sys_wait_accept (int fd);
174 174
175extern Lisp_Object QCloaded_from;
176extern HMODULE w32_delayed_load (Lisp_Object); 175extern HMODULE w32_delayed_load (Lisp_Object);
177 176
178extern int (WINAPI *pMultiByteToWideChar)(UINT,DWORD,LPCSTR,int,LPWSTR,int); 177extern int (WINAPI *pMultiByteToWideChar)(UINT,DWORD,LPCSTR,int,LPWSTR,int);
diff --git a/src/w32fns.c b/src/w32fns.c
index 26eeb5f76fb..38571d3ec21 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -93,19 +93,6 @@ extern char * w32_strerror (int error_no);
93#define IDC_HAND MAKEINTRESOURCE(32649) 93#define IDC_HAND MAKEINTRESOURCE(32649)
94#endif 94#endif
95 95
96Lisp_Object Qundefined_color;
97Lisp_Object Qcancel_timer;
98Lisp_Object Qfont_param;
99Lisp_Object Qhyper;
100Lisp_Object Qsuper;
101Lisp_Object Qmeta;
102Lisp_Object Qalt;
103Lisp_Object Qctrl;
104Lisp_Object Qcontrol;
105Lisp_Object Qshift;
106static Lisp_Object Qgeometry, Qworkarea, Qmm_size, Qframes;
107
108
109/* Prefix for system colors. */ 96/* Prefix for system colors. */
110#define SYSTEM_COLOR_PREFIX "System" 97#define SYSTEM_COLOR_PREFIX "System"
111#define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1) 98#define SYSTEM_COLOR_PREFIX_LEN (sizeof (SYSTEM_COLOR_PREFIX) - 1)
diff --git a/src/w32font.c b/src/w32font.c
index 6b486b71b8e..ab772679908 100644
--- a/src/w32font.c
+++ b/src/w32font.c
@@ -57,51 +57,6 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
57#define JOHAB_CHARSET 130 57#define JOHAB_CHARSET 130
58#endif 58#endif
59 59
60Lisp_Object Qgdi;
61Lisp_Object Quniscribe;
62static Lisp_Object QCformat;
63static Lisp_Object Qmonospace, Qsansserif, Qmono, Qsans, Qsans_serif;
64static Lisp_Object Qserif, Qscript, Qdecorative;
65static Lisp_Object Qraster, Qoutline, Qunknown;
66
67/* antialiasing */
68static Lisp_Object Qstandard, Qsubpixel, Qnatural;
69
70/* languages */
71static Lisp_Object Qzh;
72
73/* scripts */
74static Lisp_Object Qgreek, Qcoptic, Qcyrillic, Qarmenian, Qhebrew;
75static Lisp_Object Qarabic, Qsyriac, Qnko, Qthaana, Qdevanagari, Qbengali;
76static Lisp_Object Qgurmukhi, Qgujarati, Qoriya, Qtamil, Qtelugu;
77static Lisp_Object Qkannada, Qmalayalam, Qsinhala, Qthai, Qlao;
78static Lisp_Object Qtibetan, Qmyanmar, Qgeorgian, Qhangul, Qethiopic;
79static Lisp_Object Qcherokee, Qcanadian_aboriginal, Qogham, Qrunic;
80static Lisp_Object Qkhmer, Qmongolian, Qbraille, Qhan;
81static Lisp_Object Qideographic_description, Qcjk_misc, Qkana, Qbopomofo;
82static Lisp_Object Qkanbun, Qyi, Qbyzantine_musical_symbol;
83static Lisp_Object Qmusical_symbol, Qmathematical, Qcham, Qphonetic;
84/* Not defined in characters.el, but referenced in fontset.el. */
85static Lisp_Object Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot;
86static Lisp_Object Qdeseret, Qglagolitic, Qgothic, Qhanunoo, Qkharoshthi;
87static Lisp_Object Qlimbu, Qlinear_b, Qold_italic, Qold_persian, Qosmanya;
88static Lisp_Object Qphags_pa, Qphoenician, Qshavian, Qsyloti_nagri;
89static Lisp_Object Qtagalog, Qtagbanwa, Qtai_le, Qtifinagh, Qugaritic;
90
91/* W32 charsets: for use in Vw32_charset_info_alist. */
92static Lisp_Object Qw32_charset_ansi, Qw32_charset_default;
93static Lisp_Object Qw32_charset_symbol, Qw32_charset_shiftjis;
94static Lisp_Object Qw32_charset_hangeul, Qw32_charset_gb2312;
95static Lisp_Object Qw32_charset_chinesebig5, Qw32_charset_oem;
96static Lisp_Object Qw32_charset_easteurope, Qw32_charset_turkish;
97static Lisp_Object Qw32_charset_baltic, Qw32_charset_russian;
98static Lisp_Object Qw32_charset_arabic, Qw32_charset_greek;
99static Lisp_Object Qw32_charset_hebrew, Qw32_charset_vietnamese;
100static Lisp_Object Qw32_charset_thai, Qw32_charset_johab, Qw32_charset_mac;
101
102/* Font spacing symbols - defined in font.c. */
103extern Lisp_Object Qc, Qp, Qm;
104
105static void fill_in_logfont (struct frame *, LOGFONT *, Lisp_Object); 60static void fill_in_logfont (struct frame *, LOGFONT *, Lisp_Object);
106 61
107static BYTE w32_antialias_type (Lisp_Object); 62static BYTE w32_antialias_type (Lisp_Object);
diff --git a/src/w32menu.c b/src/w32menu.c
index 72e0cab2ce8..7a946d2dc75 100644
--- a/src/w32menu.c
+++ b/src/w32menu.c
@@ -98,8 +98,6 @@ AppendMenuW_Proc unicode_append_menu = NULL;
98MessageBoxW_Proc unicode_message_box = NULL; 98MessageBoxW_Proc unicode_message_box = NULL;
99#endif /* NTGUI_UNICODE */ 99#endif /* NTGUI_UNICODE */
100 100
101Lisp_Object Qdebug_on_next_call, Qunsupported__w32_dialog;
102
103void set_frame_menubar (struct frame *, bool, bool); 101void set_frame_menubar (struct frame *, bool, bool);
104 102
105#ifdef HAVE_DIALOGS 103#ifdef HAVE_DIALOGS
diff --git a/src/w32notify.c b/src/w32notify.c
index 764ded6559f..a0d555b4786 100644
--- a/src/w32notify.c
+++ b/src/w32notify.c
@@ -118,9 +118,7 @@ BYTE file_notifications[16384];
118DWORD notifications_size; 118DWORD notifications_size;
119void *notifications_desc; 119void *notifications_desc;
120 120
121static Lisp_Object Qfile_name, Qdirectory_name, Qattributes; 121static Lisp_Object watch_list;
122static Lisp_Object Qlast_write_time, Qlast_access_time, Qcreation_time;
123static Lisp_Object Qsecurity_desc, Qsubtree, watch_list;
124 122
125/* Signal to the main thread that we have file notifications for it to 123/* Signal to the main thread that we have file notifications for it to
126 process. */ 124 process. */
diff --git a/src/w32proc.c b/src/w32proc.c
index 0c178e7a2f6..26cfa2996d0 100644
--- a/src/w32proc.c
+++ b/src/w32proc.c
@@ -72,8 +72,6 @@ extern BOOL WINAPI IsValidLocale (LCID, DWORD);
72 + ((DWORD_PTR)(var) - (section)->VirtualAddress) \ 72 + ((DWORD_PTR)(var) - (section)->VirtualAddress) \
73 + (filedata).file_base)) 73 + (filedata).file_base))
74 74
75Lisp_Object Qhigh, Qlow;
76
77/* Signal handlers...SIG_DFL == 0 so this is initialized correctly. */ 75/* Signal handlers...SIG_DFL == 0 so this is initialized correctly. */
78static signal_handler sig_handlers[NSIG]; 76static signal_handler sig_handlers[NSIG];
79 77
diff --git a/src/w32select.c b/src/w32select.c
index f133f6d44e3..3c554c622ae 100644
--- a/src/w32select.c
+++ b/src/w32select.c
@@ -107,17 +107,11 @@ static Lisp_Object validate_coding_system (Lisp_Object coding_system);
107static void setup_windows_coding_system (Lisp_Object coding_system, 107static void setup_windows_coding_system (Lisp_Object coding_system,
108 struct coding_system * coding); 108 struct coding_system * coding);
109 109
110
111/* A remnant from X11: Symbol for the CLIPBORD selection type. Other
112 selections are not used on Windows, so we don't need symbols for
113 PRIMARY and SECONDARY. */
114Lisp_Object QCLIPBOARD;
115
116/* Internal pseudo-constants, initialized in globals_of_w32select() 110/* Internal pseudo-constants, initialized in globals_of_w32select()
117 based on current system parameters. */ 111 based on current system parameters. */
118static LCID DEFAULT_LCID; 112static LCID DEFAULT_LCID;
119static UINT ANSICP, OEMCP; 113static UINT ANSICP, OEMCP;
120static Lisp_Object QUNICODE, QANSICP, QOEMCP; 114static Lisp_Object QANSICP, QOEMCP;
121 115
122/* A hidden window just for the clipboard management. */ 116/* A hidden window just for the clipboard management. */
123static HWND clipboard_owner; 117static HWND clipboard_owner;
diff --git a/src/w32term.c b/src/w32term.c
index e692d9df475..8a53a58189a 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -220,10 +220,6 @@ static void w32fullscreen_hook (struct frame *);
220static void x_check_font (struct frame *, struct font *); 220static void x_check_font (struct frame *, struct font *);
221#endif 221#endif
222 222
223static Lisp_Object Qvendor_specific_keysyms;
224static Lisp_Object Qadded, Qremoved, Qmodified;
225static Lisp_Object Qrenamed_from, Qrenamed_to;
226
227 223
228/*********************************************************************** 224/***********************************************************************
229 Debugging 225 Debugging
diff --git a/src/w32uniscribe.c b/src/w32uniscribe.c
index 29fea6a0b11..2a7fe2e6f91 100644
--- a/src/w32uniscribe.c
+++ b/src/w32uniscribe.c
@@ -47,10 +47,6 @@ struct uniscribe_font_info
47 47
48int uniscribe_available = 0; 48int uniscribe_available = 0;
49 49
50/* Defined in w32font.c, since it is required there as well. */
51extern Lisp_Object Quniscribe;
52extern Lisp_Object Qopentype;
53
54/* EnumFontFamiliesEx callback. */ 50/* EnumFontFamiliesEx callback. */
55static int CALLBACK ALIGN_STACK add_opentype_font_name_to_list (ENUMLOGFONTEX *, 51static int CALLBACK ALIGN_STACK add_opentype_font_name_to_list (ENUMLOGFONTEX *,
56 NEWTEXTMETRICEX *, 52 NEWTEXTMETRICEX *,