Mercurial > hg > xemacs-beta

comparison src/gpmevent.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents e22b0213b713
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
106 106
107 DEFUN ("receive-gpm-event", Freceive_gpm_event, 0, 2, 0, /* 107 DEFUN ("receive-gpm-event", Freceive_gpm_event, 0, 2, 0, /*
108 Run GPM_GetEvent(). 108 Run GPM_GetEvent().
109 This function is the process handler for the GPM connection. 109 This function is the process handler for the GPM connection.
110 */ 110 */
111 (process, string)) 111 (process, UNUSED (string)))
112 { 112 {
113 Gpm_Event ev; 113 Gpm_Event ev;
114 int modifiers = 0; 114 int modifiers = 0;
115 int button = 1; 115 int button = 1;
116 Lisp_Object fake_event = Qnil; 116 Lisp_Object fake_event = Qnil;
204 Fdelete_process (build_string (process_name)); 204 Fdelete_process (build_string (process_name));
205 } 205 }
206 206
207 #ifdef TIOCLINUX 207 #ifdef TIOCLINUX
208 static Lisp_Object 208 static Lisp_Object
209 tty_get_foreign_selection (Lisp_Object selection_symbol, 209 tty_get_foreign_selection (Lisp_Object UNUSED (selection_symbol),
210 Lisp_Object target_type) 210 Lisp_Object UNUSED (target_type))
211 { 211 {
212 /* This function can GC */ 212 /* This function can GC */
213 struct device *d = decode_device (Qnil); 213 struct device *d = decode_device (Qnil);
214 int fd = DEVICE_INFD (d); 214 int fd = DEVICE_INFD (d);
215 char c = 3; 215 char c = 3;
298 UNGCPRO; 298 UNGCPRO;
299 return (output_string); 299 return (output_string);
300 } 300 }
301 301
302 static Lisp_Object 302 static Lisp_Object
303 tty_selection_exists_p (Lisp_Object selection, Lisp_Object selection_type) 303 tty_selection_exists_p (Lisp_Object UNUSED (selection),
304 Lisp_Object UNUSED (selection_type))
304 { 305 {
305 return (Qt); 306 return (Qt);
306 } 307 }
307 #endif /* TIOCLINUX */ 308 #endif /* TIOCLINUX */
308 309
355 *frame = DEVICE_SELECTED_FRAME (d); 356 *frame = DEVICE_SELECTED_FRAME (d);
356 return (1); 357 return (1);
357 } 358 }
358 359
359 static void 360 static void
360 tty_set_mouse_position (struct window *w, int x, int y) 361 tty_set_mouse_position (struct window *UNUSED (w), int UNUSED (x),
362 int UNUSED (y))
361 { 363 {
362 /* 364 /*
363 #### I couldn't find any GPM functions that set the mouse position. 365 #### I couldn't find any GPM functions that set the mouse position.
364 #### Mr. Perry had left this function empty; that must be why. 366 #### Mr. Perry had left this function empty; that must be why.
365 #### karlheg 367 #### karlheg