(unreadchar): Don't back up the pointer when unreading EOF.

92fddec9 · Karl Heuer · f943104a · 92fddec9
Commit 92fddec9 authored Mar 22, 1994 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

src/lread.c src/lread.c +5 -1

No files found.
--- a/src/lread.c
+++ b/src/lread.c
@@ -165,7 +165,11 @@ unreadchar (readcharfun, c)
     Lisp_Object readcharfun;
     int c;
 {
-  if (XTYPE (readcharfun) == Lisp_Buffer)
+  if (c == -1)
+    /* Don't back up the pointer if we're unreading the end-of-input mark,
+       since readchar didn't advance it when we read it.  */
+    ;
+  else if (XTYPE (readcharfun) == Lisp_Buffer)
    {
      if (XBUFFER (readcharfun) == current_buffer)
 	SET_PT (point - 1);