Mercurial > hg > xemacs-beta

comparison src/events.c @ 2340:91a83e231f92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-10-19 17:18:59 by james] Mark more unused parameters.
author james
date Tue, 19 Oct 2004 17:19:07 +0000
parents 04bc9d2f42c7
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2339:74a78941c2c1 2340:91a83e231f92
38 #include "redisplay.h" 38 #include "redisplay.h"
39 #include "toolbar.h" 39 #include "toolbar.h"
40 #include "window.h" 40 #include "window.h"
41 41
42 #include "console-tty-impl.h" /* for stuff in character_to_event */ 42 #include "console-tty-impl.h" /* for stuff in character_to_event */
43
44 #ifdef HAVE_TTY
45 #define USED_IF_TTY(decl) decl
46 #else
47 #define USED_IF_TTY(decl) UNUSED (decl)
48 #endif
49
50 #ifdef HAVE_TOOLBARS
51 #define USED_IF_TOOLBARS(decl) decl
52 #else
53 #define USED_IF_TOOLBARS(decl) UNUSED (decl)
54 #endif
43 55
44 /* Where old events go when they are explicitly deallocated. 56 /* Where old events go when they are explicitly deallocated.
45 The event chain here is cut loose before GC, so these will be freed 57 The event chain here is cut loose before GC, so these will be freed
46 eventually. 58 eventually.
47 */ 59 */
1208 This would apparently solve a lot of different problems. 1220 This would apparently solve a lot of different problems.
1209 */ 1221 */
1210 1222
1211 void 1223 void
1212 character_to_event (Ichar c, Lisp_Event *event, struct console *con, 1224 character_to_event (Ichar c, Lisp_Event *event, struct console *con,
1213 int use_console_meta_flag, int do_backspace_mapping) 1225 int use_console_meta_flag,
1226 int USED_IF_TTY (do_backspace_mapping))
1214 { 1227 {
1215 Lisp_Object k = Qnil; 1228 Lisp_Object k = Qnil;
1216 int m = 0; 1229 int m = 0;
1217 if (EVENT_TYPE (event) == dead_event) 1230 if (EVENT_TYPE (event) == dead_event)
1218 invalid_argument ("character-to-event called with a deallocated event!", Qunbound); 1231 invalid_argument ("character-to-event called with a deallocated event!", Qunbound);
2381 2394
2382 DEFUN ("event-toolbar-button", Fevent_toolbar_button, 1, 1, 0, /* 2395 DEFUN ("event-toolbar-button", Fevent_toolbar_button, 1, 1, 0, /*
2383 Return the toolbar button that the mouse event EVENT occurred over. 2396 Return the toolbar button that the mouse event EVENT occurred over.
2384 If the event did not occur over a toolbar button, nil is returned. 2397 If the event did not occur over a toolbar button, nil is returned.
2385 */ 2398 */
2386 (event)) 2399 (USED_IF_TOOLBARS (event)))
2387 { 2400 {
2388 #ifdef HAVE_TOOLBARS 2401 #ifdef HAVE_TOOLBARS
2389 Lisp_Object button; 2402 Lisp_Object button;
2390 2403
2391 int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, &button, 0); 2404 int result = event_pixel_translation (event, 0, 0, 0, 0, 0, 0, 0, 0, &button, 0);