# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 937869522 0
# Node ID 8f59abd3a02b0d1a31d8cc4621591d3629c261a9
# Parent  e5579bc77d9e88b2f2380b4f7a7027d67b69c1d2
(init_editfns): Remove unused variables.
(Fgoto_char, Fchar_after, Fformat): Ditto.
(message_text, message_length): Put in #ifndef HAVE_MENUS.

diff -r e5579bc77d9e -r 8f59abd3a02b src/editfns.c
--- 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;