From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 20 Sep 1999 23:18:48 +0000 (+0000)
Subject: (readchar): Remove unused variables.
X-Git-Tag: emacs-pretest-21.0.90~6655
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95384e1edeb72191391a52756b1fa0d665c674ad;p=emacs.git

(readchar): Remove unused variables.
(read_filtered_event, read1, Fmapatoms): Ditto.
(toplevel): Include intervals.h.
---

diff --git a/src/lread.c b/src/lread.c
index d02d2b31200..b57223b8cf8 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -27,6 +27,7 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/file.h>
 #include <errno.h>
 #include "lisp.h"
+#include "intervals.h"
 
 #ifndef standalone
 #include "buffer.h"
@@ -190,7 +191,7 @@ readchar (readcharfun)
      Lisp_Object readcharfun;
 {
   Lisp_Object tem;
-  register int c, mpos;
+  register int c;
 
   if (BUFFERP (readcharfun))
     {
@@ -476,7 +477,7 @@ read_filtered_event (no_switch_frame, ascii_required, error_nonascii,
       /* Convert certain symbols to their ASCII equivalents.  */
       if (SYMBOLP (val))
 	{
-	  Lisp_Object tem, tem1, tem2;
+	  Lisp_Object tem, tem1;
 	  tem = Fget (val, Qevent_symbol_element_mask);
 	  if (!NILP (tem))
 	    {
@@ -1902,8 +1903,6 @@ read1 (readcharfun, pch, first_in_list)
 
     case '?':
       {
-	register Lisp_Object val;
-
 	c = READCHAR;
 	if (c < 0) return Fsignal (Qend_of_file, Qnil);
 
@@ -2938,8 +2937,6 @@ OBARRAY defaults to the value of `obarray'.")
   (function, obarray)
      Lisp_Object function, obarray;
 {
-  Lisp_Object tem;
-
   if (NILP (obarray)) obarray = Vobarray;
   obarray = check_obarray (obarray);