Mercurial > emacs

changeset 25787:3d1138357287

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(readchar): Remove unused variables. (read_filtered_event, read1, Fmapatoms): Ditto. (toplevel): Include intervals.h.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 20 Sep 1999 23:18:48 +0000
parents 5ccfb99a7e21
children 7796a636f039
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Mon Sep 20 23:18:46 1999 +0000
+++ b/src/lread.c	Mon Sep 20 23:18:48 1999 +0000
@@ -27,6 +27,7 @@
 #include <sys/file.h>
 #include <errno.h>
 #include "lisp.h"
+#include "intervals.h"
 
 #ifndef standalone
 #include "buffer.h"
@@ -190,7 +191,7 @@
      Lisp_Object readcharfun;
 {
   Lisp_Object tem;
-  register int c, mpos;
+  register int c;
 
   if (BUFFERP (readcharfun))
     {
@@ -476,7 +477,7 @@
       /* 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 @@
 
     case '?':
       {
-	register Lisp_Object val;
-
 	c = READCHAR;
 	if (c < 0) return Fsignal (Qend_of_file, Qnil);
 
@@ -2938,8 +2937,6 @@
   (function, obarray)
      Lisp_Object function, obarray;
 {
-  Lisp_Object tem;
-
   if (NILP (obarray)) obarray = Vobarray;
   obarray = check_obarray (obarray);