Mercurial > emacs

diff src/lread.c @ 71673:1404a22bd1f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(readevalloop): Remove unused var `bpos'. Yet another int/Lisp_Object mixup.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 07 Jul 2006 16:16:18 +0000
parents 9c4db0e8490f
children b4bcd3aefbe8
line wrap: on
line diff
--- a/src/lread.c	Fri Jul 07 16:12:51 2006 +0000
+++ b/src/lread.c	Fri Jul 07 16:16:18 2006 +0000
@@ -1369,7 +1369,6 @@
   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 @@
 
   /* 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);