Mercurial > hg > xemacs-beta

diff src/minibuf.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 ecf1ebac70d8
line wrap: on
line diff
--- a/src/minibuf.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/minibuf.c	Mon Sep 20 19:20:08 2004 +0000
@@ -146,8 +146,6 @@
      never returns, we can never call unbind_to_1.  Since we exit via a throw,
      we let whoever catches unbind for us. */
 
-  Lisp_Object val;
-
   CHECK_STRING (prompt);
 
   single_console_state ();
@@ -191,9 +189,9 @@
   minibuf_level++;
   clear_echo_area (selected_frame (), Qnil, 0);
 
-  val = call_command_loop (Qt);
+  call_command_loop (Qt);
 
-  RETURN_NOT_REACHED (val);
+  RETURN_NOT_REACHED (Qnil);
 }
 
 
@@ -776,7 +774,7 @@
 }
 
 int
-echo_area_active (struct frame *f)
+echo_area_active (struct frame *UNUSED (f))
 {
   /* By definition, the echo area is active if the echo-area buffer
      is not empty.  No need to call Lisp code. (Anyway, this function
@@ -800,7 +798,7 @@
 }
 
 Lisp_Object
-echo_area_contents (struct frame *f)
+echo_area_contents (struct frame *UNUSED (f))
 {
   /* See above.  By definition, the contents of the echo-area buffer
      are the contents of the echo area. */