diff options
| author | Eli Zaretskii | 2015-01-05 22:13:58 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2015-01-05 22:13:58 +0200 |
| commit | 5b5dab1281bc47e36b6fb40b88a3ff2241657469 (patch) | |
| tree | 830d59d82512e40991c388fa2484e78cca8cb652 /src | |
| parent | bc78ff2603b8c062dbd8f93f421c3412e36e343f (diff) | |
| download | emacs-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/ChangeLog | 6 | ||||
| -rw-r--r-- | src/w32.c | 2 | ||||
| -rw-r--r-- | src/w32.h | 1 | ||||
| -rw-r--r-- | src/w32fns.c | 13 | ||||
| -rw-r--r-- | src/w32font.c | 45 | ||||
| -rw-r--r-- | src/w32menu.c | 2 | ||||
| -rw-r--r-- | src/w32notify.c | 4 | ||||
| -rw-r--r-- | src/w32proc.c | 2 | ||||
| -rw-r--r-- | src/w32select.c | 8 | ||||
| -rw-r--r-- | src/w32term.c | 4 | ||||
| -rw-r--r-- | src/w32uniscribe.c | 4 |
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 @@ | |||
| 1 | 2015-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 | |||
| 1 | 2015-01-05 Paul Eggert <eggert@cs.ucla.edu> | 7 | 2015-01-05 Paul Eggert <eggert@cs.ucla.edu> |
| 2 | 8 | ||
| 3 | Use 0 for Qnil | 9 | Use 0 for Qnil |
| @@ -242,8 +242,6 @@ typedef struct _REPARSE_DATA_BUFFER { | |||
| 242 | typedef HRESULT (WINAPI * ShGetFolderPath_fn) | 242 | typedef 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 | ||
| 245 | Lisp_Object QCloaded_from; | ||
| 246 | |||
| 247 | void globals_of_w32 (void); | 245 | void globals_of_w32 (void); |
| 248 | static DWORD get_rid (PSID); | 246 | static DWORD get_rid (PSID); |
| 249 | static int is_symlink (const char *); | 247 | static int is_symlink (const char *); |
| @@ -172,7 +172,6 @@ extern void init_timers (void); | |||
| 172 | extern int _sys_read_ahead (int fd); | 172 | extern int _sys_read_ahead (int fd); |
| 173 | extern int _sys_wait_accept (int fd); | 173 | extern int _sys_wait_accept (int fd); |
| 174 | 174 | ||
| 175 | extern Lisp_Object QCloaded_from; | ||
| 176 | extern HMODULE w32_delayed_load (Lisp_Object); | 175 | extern HMODULE w32_delayed_load (Lisp_Object); |
| 177 | 176 | ||
| 178 | extern int (WINAPI *pMultiByteToWideChar)(UINT,DWORD,LPCSTR,int,LPWSTR,int); | 177 | extern 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 | ||
| 96 | Lisp_Object Qundefined_color; | ||
| 97 | Lisp_Object Qcancel_timer; | ||
| 98 | Lisp_Object Qfont_param; | ||
| 99 | Lisp_Object Qhyper; | ||
| 100 | Lisp_Object Qsuper; | ||
| 101 | Lisp_Object Qmeta; | ||
| 102 | Lisp_Object Qalt; | ||
| 103 | Lisp_Object Qctrl; | ||
| 104 | Lisp_Object Qcontrol; | ||
| 105 | Lisp_Object Qshift; | ||
| 106 | static 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 | ||
| 60 | Lisp_Object Qgdi; | ||
| 61 | Lisp_Object Quniscribe; | ||
| 62 | static Lisp_Object QCformat; | ||
| 63 | static Lisp_Object Qmonospace, Qsansserif, Qmono, Qsans, Qsans_serif; | ||
| 64 | static Lisp_Object Qserif, Qscript, Qdecorative; | ||
| 65 | static Lisp_Object Qraster, Qoutline, Qunknown; | ||
| 66 | |||
| 67 | /* antialiasing */ | ||
| 68 | static Lisp_Object Qstandard, Qsubpixel, Qnatural; | ||
| 69 | |||
| 70 | /* languages */ | ||
| 71 | static Lisp_Object Qzh; | ||
| 72 | |||
| 73 | /* scripts */ | ||
| 74 | static Lisp_Object Qgreek, Qcoptic, Qcyrillic, Qarmenian, Qhebrew; | ||
| 75 | static Lisp_Object Qarabic, Qsyriac, Qnko, Qthaana, Qdevanagari, Qbengali; | ||
| 76 | static Lisp_Object Qgurmukhi, Qgujarati, Qoriya, Qtamil, Qtelugu; | ||
| 77 | static Lisp_Object Qkannada, Qmalayalam, Qsinhala, Qthai, Qlao; | ||
| 78 | static Lisp_Object Qtibetan, Qmyanmar, Qgeorgian, Qhangul, Qethiopic; | ||
| 79 | static Lisp_Object Qcherokee, Qcanadian_aboriginal, Qogham, Qrunic; | ||
| 80 | static Lisp_Object Qkhmer, Qmongolian, Qbraille, Qhan; | ||
| 81 | static Lisp_Object Qideographic_description, Qcjk_misc, Qkana, Qbopomofo; | ||
| 82 | static Lisp_Object Qkanbun, Qyi, Qbyzantine_musical_symbol; | ||
| 83 | static Lisp_Object Qmusical_symbol, Qmathematical, Qcham, Qphonetic; | ||
| 84 | /* Not defined in characters.el, but referenced in fontset.el. */ | ||
| 85 | static Lisp_Object Qbalinese, Qbuginese, Qbuhid, Qcuneiform, Qcypriot; | ||
| 86 | static Lisp_Object Qdeseret, Qglagolitic, Qgothic, Qhanunoo, Qkharoshthi; | ||
| 87 | static Lisp_Object Qlimbu, Qlinear_b, Qold_italic, Qold_persian, Qosmanya; | ||
| 88 | static Lisp_Object Qphags_pa, Qphoenician, Qshavian, Qsyloti_nagri; | ||
| 89 | static Lisp_Object Qtagalog, Qtagbanwa, Qtai_le, Qtifinagh, Qugaritic; | ||
| 90 | |||
| 91 | /* W32 charsets: for use in Vw32_charset_info_alist. */ | ||
| 92 | static Lisp_Object Qw32_charset_ansi, Qw32_charset_default; | ||
| 93 | static Lisp_Object Qw32_charset_symbol, Qw32_charset_shiftjis; | ||
| 94 | static Lisp_Object Qw32_charset_hangeul, Qw32_charset_gb2312; | ||
| 95 | static Lisp_Object Qw32_charset_chinesebig5, Qw32_charset_oem; | ||
| 96 | static Lisp_Object Qw32_charset_easteurope, Qw32_charset_turkish; | ||
| 97 | static Lisp_Object Qw32_charset_baltic, Qw32_charset_russian; | ||
| 98 | static Lisp_Object Qw32_charset_arabic, Qw32_charset_greek; | ||
| 99 | static Lisp_Object Qw32_charset_hebrew, Qw32_charset_vietnamese; | ||
| 100 | static Lisp_Object Qw32_charset_thai, Qw32_charset_johab, Qw32_charset_mac; | ||
| 101 | |||
| 102 | /* Font spacing symbols - defined in font.c. */ | ||
| 103 | extern Lisp_Object Qc, Qp, Qm; | ||
| 104 | |||
| 105 | static void fill_in_logfont (struct frame *, LOGFONT *, Lisp_Object); | 60 | static void fill_in_logfont (struct frame *, LOGFONT *, Lisp_Object); |
| 106 | 61 | ||
| 107 | static BYTE w32_antialias_type (Lisp_Object); | 62 | static 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; | |||
| 98 | MessageBoxW_Proc unicode_message_box = NULL; | 98 | MessageBoxW_Proc unicode_message_box = NULL; |
| 99 | #endif /* NTGUI_UNICODE */ | 99 | #endif /* NTGUI_UNICODE */ |
| 100 | 100 | ||
| 101 | Lisp_Object Qdebug_on_next_call, Qunsupported__w32_dialog; | ||
| 102 | |||
| 103 | void set_frame_menubar (struct frame *, bool, bool); | 101 | void 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]; | |||
| 118 | DWORD notifications_size; | 118 | DWORD notifications_size; |
| 119 | void *notifications_desc; | 119 | void *notifications_desc; |
| 120 | 120 | ||
| 121 | static Lisp_Object Qfile_name, Qdirectory_name, Qattributes; | 121 | static Lisp_Object watch_list; |
| 122 | static Lisp_Object Qlast_write_time, Qlast_access_time, Qcreation_time; | ||
| 123 | static 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 | ||
| 75 | Lisp_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. */ |
| 78 | static signal_handler sig_handlers[NSIG]; | 76 | static 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); | |||
| 107 | static void setup_windows_coding_system (Lisp_Object coding_system, | 107 | static 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. */ | ||
| 114 | Lisp_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. */ |
| 118 | static LCID DEFAULT_LCID; | 112 | static LCID DEFAULT_LCID; |
| 119 | static UINT ANSICP, OEMCP; | 113 | static UINT ANSICP, OEMCP; |
| 120 | static Lisp_Object QUNICODE, QANSICP, QOEMCP; | 114 | static Lisp_Object QANSICP, QOEMCP; |
| 121 | 115 | ||
| 122 | /* A hidden window just for the clipboard management. */ | 116 | /* A hidden window just for the clipboard management. */ |
| 123 | static HWND clipboard_owner; | 117 | static 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 *); | |||
| 220 | static void x_check_font (struct frame *, struct font *); | 220 | static void x_check_font (struct frame *, struct font *); |
| 221 | #endif | 221 | #endif |
| 222 | 222 | ||
| 223 | static Lisp_Object Qvendor_specific_keysyms; | ||
| 224 | static Lisp_Object Qadded, Qremoved, Qmodified; | ||
| 225 | static 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 | ||
| 48 | int uniscribe_available = 0; | 48 | int uniscribe_available = 0; |
| 49 | 49 | ||
| 50 | /* Defined in w32font.c, since it is required there as well. */ | ||
| 51 | extern Lisp_Object Quniscribe; | ||
| 52 | extern Lisp_Object Qopentype; | ||
| 53 | |||
| 54 | /* EnumFontFamiliesEx callback. */ | 50 | /* EnumFontFamiliesEx callback. */ |
| 55 | static int CALLBACK ALIGN_STACK add_opentype_font_name_to_list (ENUMLOGFONTEX *, | 51 | static int CALLBACK ALIGN_STACK add_opentype_font_name_to_list (ENUMLOGFONTEX *, |
| 56 | NEWTEXTMETRICEX *, | 52 | NEWTEXTMETRICEX *, |