Mercurial > emacs

diff src/lread.c @ 6471:4e6b54b64d94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unreadchar): Don't back up the pointer when unreading EOF.
author Karl Heuer <kwzh@gnu.org>
date Tue, 22 Mar 1994 22:20:38 +0000
parents 651b49e52c9e
children 7c566d0e4b3d
line wrap: on
line diff
--- a/src/lread.c	Tue Mar 22 21:59:02 1994 +0000
+++ b/src/lread.c	Tue Mar 22 22:20:38 1994 +0000
@@ -165,7 +165,11 @@
      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);