aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
authorKaroly Lorentey2004-04-27 15:53:30 +0000
committerKaroly Lorentey2004-04-27 15:53:30 +0000
commit6c8caecfb9c96879b8ea6f1e08314408be40a832 (patch)
treecec3e345d246fe9b789786da588c5c6334215679 /src/lread.c
parentced7ed5611e2a6e60a5ac7a97e165545843d0fa9 (diff)
parentc4c07982c1a6b3ddd9339ecdb9af1876f70d8792 (diff)
downloademacs-6c8caecfb9c96879b8ea6f1e08314408be40a832.tar.gz
emacs-6c8caecfb9c96879b8ea6f1e08314408be40a832.zip
Merged in changes from CVS trunk.
Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-241 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-242 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-243 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-244 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-245 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-246 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-247 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-248 src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-249 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-250 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-251 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-252 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-253 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-254 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-255 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-153
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c21
1 files changed, 13 insertions, 8 deletions
diff --git a/src/lread.c b/src/lread.c
index ac353c798dc..46fe6cd3e51 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1994,8 +1994,9 @@ read1 (readcharfun, pch, first_in_list)
1994 if (c == '"') 1994 if (c == '"')
1995 { 1995 {
1996 Lisp_Object tmp, val; 1996 Lisp_Object tmp, val;
1997 int size_in_chars = ((XFASTINT (length) + BITS_PER_CHAR - 1) 1997 int size_in_chars
1998 / BITS_PER_CHAR); 1998 = ((XFASTINT (length) + BOOL_VECTOR_BITS_PER_CHAR - 1)
1999 / BOOL_VECTOR_BITS_PER_CHAR);
1999 2000
2000 UNREAD (c); 2001 UNREAD (c);
2001 tmp = read1 (readcharfun, pch, first_in_list); 2002 tmp = read1 (readcharfun, pch, first_in_list);
@@ -2004,7 +2005,7 @@ read1 (readcharfun, pch, first_in_list)
2004 when the number of bits was a multiple of 8. 2005 when the number of bits was a multiple of 8.
2005 Accept such input in case it came from an old version. */ 2006 Accept such input in case it came from an old version. */
2006 && ! (XFASTINT (length) 2007 && ! (XFASTINT (length)
2007 == (SCHARS (tmp) - 1) * BITS_PER_CHAR)) 2008 == (SCHARS (tmp) - 1) * BOOL_VECTOR_BITS_PER_CHAR))
2008 Fsignal (Qinvalid_read_syntax, 2009 Fsignal (Qinvalid_read_syntax,
2009 Fcons (make_string ("#&...", 5), Qnil)); 2010 Fcons (make_string ("#&...", 5), Qnil));
2010 2011
@@ -2012,9 +2013,9 @@ read1 (readcharfun, pch, first_in_list)
2012 bcopy (SDATA (tmp), XBOOL_VECTOR (val)->data, 2013 bcopy (SDATA (tmp), XBOOL_VECTOR (val)->data,
2013 size_in_chars); 2014 size_in_chars);
2014 /* Clear the extraneous bits in the last byte. */ 2015 /* Clear the extraneous bits in the last byte. */
2015 if (XINT (length) != size_in_chars * BITS_PER_CHAR) 2016 if (XINT (length) != size_in_chars * BOOL_VECTOR_BITS_PER_CHAR)
2016 XBOOL_VECTOR (val)->data[size_in_chars - 1] 2017 XBOOL_VECTOR (val)->data[size_in_chars - 1]
2017 &= (1 << (XINT (length) % BITS_PER_CHAR)) - 1; 2018 &= (1 << (XINT (length) % BOOL_VECTOR_BITS_PER_CHAR)) - 1;
2018 return val; 2019 return val;
2019 } 2020 }
2020 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 5), 2021 Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&...", 5),
@@ -3677,11 +3678,15 @@ init_lread ()
3677 } 3678 }
3678#endif 3679#endif
3679 3680
3680#ifndef WINDOWSNT 3681#if (!(defined(WINDOWSNT) || (defined(HAVE_CARBON))))
3681 /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is 3682 /* When Emacs is invoked over network shares on NT, PATH_LOADSEARCH is
3682 almost never correct, thereby causing a warning to be printed out that 3683 almost never correct, thereby causing a warning to be printed out that
3683 confuses users. Since PATH_LOADSEARCH is always overridden by the 3684 confuses users. Since PATH_LOADSEARCH is always overridden by the
3684 EMACSLOADPATH environment variable below, disable the warning on NT. */ 3685 EMACSLOADPATH environment variable below, disable the warning on NT.
3686 Also, when using the "self-contained" option for Carbon Emacs for MacOSX,
3687 the "standard" paths may not exist and would be overridden by
3688 EMACSLOADPATH as on NT. Since this depends on how the executable
3689 was build and packaged, turn off the warnings in general */
3685 3690
3686 /* Warn if dirs in the *standard* path don't exist. */ 3691 /* Warn if dirs in the *standard* path don't exist. */
3687 if (!turn_off_warning) 3692 if (!turn_off_warning)
@@ -3703,7 +3708,7 @@ init_lread ()
3703 } 3708 }
3704 } 3709 }
3705 } 3710 }
3706#endif /* WINDOWSNT */ 3711#endif /* !(WINDOWSNT || HAVE_CARBON) */
3707 3712
3708 /* If the EMACSLOADPATH environment variable is set, use its value. 3713 /* If the EMACSLOADPATH environment variable is set, use its value.
3709 This doesn't apply if we're dumping. */ 3714 This doesn't apply if we're dumping. */