HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f943104
)
(unreadchar): Don't back up the pointer when unreading EOF.
author
Karl Heuer
<kwzh@gnu.org>
Tue, 22 Mar 1994 22:20:38 +0000
(22:20 +0000)
committer
Karl Heuer
<kwzh@gnu.org>
Tue, 22 Mar 1994 22:20:38 +0000
(22:20 +0000)
src/lread.c
patch
|
blob
|
blame
|
history
diff --git
a/src/lread.c
b/src/lread.c
index
af7a015
..
760cb46
100644
(file)
--- 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);