mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1994-03-22 22:20:38 +00:00
parent f943104adb
commit 92fddec9eb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lread.c
View File

@ -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);