diff options
| author | Karoly Lorentey | 2004-04-27 15:53:30 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-04-27 15:53:30 +0000 |
| commit | 6c8caecfb9c96879b8ea6f1e08314408be40a832 (patch) | |
| tree | cec3e345d246fe9b789786da588c5c6334215679 /src/lread.c | |
| parent | ced7ed5611e2a6e60a5ac7a97e165545843d0fa9 (diff) | |
| parent | c4c07982c1a6b3ddd9339ecdb9af1876f70d8792 (diff) | |
| download | emacs-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.c | 21 |
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. */ |