From 91fe949656b93b5c279dbca9d7b072e7a8ae4387 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 7 Jul 2006 16:16:18 +0000 Subject: [PATCH] (readevalloop): Remove unused var `bpos'. Yet another int/Lisp_Object mixup. --- src/ChangeLog | 2 ++ src/lread.c | 5 ++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index f7c171e5d44..4ad5cc11716 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -2,6 +2,8 @@ * lread.c (read_filtered_event): Remove `register' qualifier because it causes compilation problem with gcc-4.0.2-20051125 on amd64. + (readevalloop): Remove unused var `bpos'. + Yet another int/Lisp_Object mixup (YAILOM). 2006-07-07 Eli Zaretskii diff --git a/src/lread.c b/src/lread.c index 3cf68f6455c..1cd2015cf01 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1369,7 +1369,6 @@ readevalloop (readcharfun, stream, sourcename, evalfun, int count = SPECPDL_INDEX (); struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; struct buffer *b = 0; - int bpos; int continue_reading_p; /* Nonzero if reading an entire buffer. */ int whole_buffer = 0; @@ -1402,8 +1401,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun, /* Try to ensure sourcename is a truename, except whilst preloading. */ if (NILP (Vpurify_flag) - && !NILP (sourcename) && Ffile_name_absolute_p (sourcename) - && (!NILP (Ffboundp (Qfile_truename)))) + && !NILP (sourcename) && !NILP (Ffile_name_absolute_p (sourcename)) + && !NILP (Ffboundp (Qfile_truename))) sourcename = call1 (Qfile_truename, sourcename) ; LOADHIST_ATTACH (sourcename); -- 2.39.2