Mercurial > hg > xemacs-beta

comparison src/cmdloop.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 61855263cb07
children 989a7680c221
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
198 when invoking top_level_1(), just like when it invokes 198 when invoking top_level_1(), just like when it invokes
199 command_loop_2(). */ 199 command_loop_2(). */
200 200
201 201
202 static Lisp_Object 202 static Lisp_Object
203 cmd_error (Lisp_Object data, Lisp_Object dummy) 203 cmd_error (Lisp_Object data, Lisp_Object UNUSED (dummy))
204 { 204 {
205 /* This function can GC */ 205 /* This function can GC */
206 check_quit (); /* make Vquit_flag accurate */ 206 check_quit (); /* make Vquit_flag accurate */
207 Vquit_flag = Qnil; 207 Vquit_flag = Qnil;
208 208
213 213
214 return default_error_handler (data); 214 return default_error_handler (data);
215 } 215 }
216 216
217 static Lisp_Object 217 static Lisp_Object
218 top_level_1 (Lisp_Object dummy) 218 top_level_1 (Lisp_Object UNUSED (dummy))
219 { 219 {
220 /* This function can GC */ 220 /* This function can GC */
221 /* On entry to the outer level, run the startup file */ 221 /* On entry to the outer level, run the startup file */
222 if (!NILP (Vtop_level)) 222 if (!NILP (Vtop_level))
223 condition_case_1 (Qerror, Feval, Vtop_level, cmd_error, Qnil); 223 condition_case_1 (Qerror, Feval, Vtop_level, cmd_error, Qnil);
268 } 268 }
269 269
270 static DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, command_loop_2 (Lisp_Object)); 270 static DECLARE_DOESNT_RETURN_TYPE (Lisp_Object, command_loop_2 (Lisp_Object));
271 271
272 static DOESNT_RETURN_TYPE (Lisp_Object) 272 static DOESNT_RETURN_TYPE (Lisp_Object)
273 command_loop_2 (Lisp_Object dummy) 273 command_loop_2 (Lisp_Object UNUSED (dummy))
274 { 274 {
275 command_loop_3(); /* doesn't return */ 275 command_loop_3(); /* doesn't return */
276 RETURN_NOT_REACHED (Qnil); 276 RETURN_NOT_REACHED (Qnil);
277 } 277 }
278 278
496 #ifdef LISP_COMMAND_LOOP 496 #ifdef LISP_COMMAND_LOOP
497 static Lisp_Object 497 static Lisp_Object
498 #else 498 #else
499 static DOESNT_RETURN_TYPE (Lisp_Object) 499 static DOESNT_RETURN_TYPE (Lisp_Object)
500 #endif 500 #endif
501 command_loop_1 (Lisp_Object dummy) 501 command_loop_1 (Lisp_Object UNUSED (dummy))
502 { 502 {
503 /* This function can GC */ 503 /* This function can GC */
504 /* #### not correct with Vselected_console */ 504 /* #### not correct with Vselected_console */
505 XCONSOLE (Vselected_console)->prefix_arg = Qnil; 505 XCONSOLE (Vselected_console)->prefix_arg = Qnil;
506 Fcommand_loop_1 (); 506 Fcommand_loop_1 ();