Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
71672:9c4db0e8490f 71673:1404a22bd1f5
1367 register int c; 1367 register int c;
1368 register Lisp_Object val; 1368 register Lisp_Object val;
1369 int count = SPECPDL_INDEX (); 1369 int count = SPECPDL_INDEX ();
1370 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; 1370 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
1371 struct buffer *b = 0; 1371 struct buffer *b = 0;
1372 int bpos;
1373 int continue_reading_p; 1372 int continue_reading_p;
1374 /* Nonzero if reading an entire buffer. */ 1373 /* Nonzero if reading an entire buffer. */
1375 int whole_buffer = 0; 1374 int whole_buffer = 0;
1376 /* 1 on the first time around. */ 1375 /* 1 on the first time around. */
1377 int first_sexp = 1; 1376 int first_sexp = 1;
1400 1399
1401 GCPRO4 (sourcename, readfun, start, end); 1400 GCPRO4 (sourcename, readfun, start, end);
1402 1401
1403 /* Try to ensure sourcename is a truename, except whilst preloading. */ 1402 /* Try to ensure sourcename is a truename, except whilst preloading. */
1404 if (NILP (Vpurify_flag) 1403 if (NILP (Vpurify_flag)
1405 && !NILP (sourcename) && Ffile_name_absolute_p (sourcename) 1404 && !NILP (sourcename) && !NILP (Ffile_name_absolute_p (sourcename))
1406 && (!NILP (Ffboundp (Qfile_truename)))) 1405 && !NILP (Ffboundp (Qfile_truename)))
1407 sourcename = call1 (Qfile_truename, sourcename) ; 1406 sourcename = call1 (Qfile_truename, sourcename) ;
1408 1407
1409 LOADHIST_ATTACH (sourcename); 1408 LOADHIST_ATTACH (sourcename);
1410 1409
1411 continue_reading_p = 1; 1410 continue_reading_p = 1;