changeset 25782:8f59abd3a02b

(init_editfns): Remove unused variables. (Fgoto_char, Fchar_after, Fformat): Ditto. (message_text, message_length): Put in #ifndef HAVE_MENUS.

--- a/src/editfns.c	Mon Sep 20 23:18:39 1999 +0000
+++ b/src/editfns.c	Mon Sep 20 23:18:42 1999 +0000
@@ -77,7 +77,7 @@
 init_editfns ()
 {
   char *user_name;
-  register unsigned char *p, *q, *r;
+  register unsigned char *p;
   struct passwd *pw;	/* password entry for the current user */
   Lisp_Object tem;
 
@@ -214,7 +214,6 @@
      register Lisp_Object position;
 {
   int pos;
-  unsigned char *p;
 
   if (MARKERP (position)
       && current_buffer == XMARKER (position)->buffer)
@@ -619,7 +618,6 @@
      Lisp_Object pos;
 {
   register int pos_byte;
-  register Lisp_Object val;
 
   if (NILP (pos))
     {
@@ -2350,12 +2348,16 @@
   return unbind_to (count, val);
 }
 
+#ifndef HAVE_MENUS
+
 /* Buffer for the most recent text displayed by Fmessage.  */
 static char *message_text;
 
 /* Allocated length of that buffer.  */
 static int message_length;
 
+#endif /* not HAVE_MENUS */
+
 DEFUN ("message", Fmessage, Smessage, 1, MANY, 0,
   "Print a one-line message at the bottom of the screen.\n\
 The first argument is a format control string, and the rest are data\n\
@@ -2495,7 +2497,7 @@
   register int total;		/* An estimate of the final length */
   char *buf, *p;
   register unsigned char *format, *end;
-  int length, nchars;
+  int nchars;
   /* Nonzero if the output should be a multibyte string,
      which is true if any of the inputs is one.  */
   int multibyte = 0;