diff options
| author | Miles Bader | 2007-07-31 05:50:45 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-07-31 05:50:45 +0000 |
| commit | 9899d01a0ccec166e04caa60657a44e614be50cd (patch) | |
| tree | 6f7874938065fd9808765059213ff7a94ab3268b /src/lread.c | |
| parent | 96157d113ae5828cc280488211610db1960d572c (diff) | |
| parent | 2f12b713116a4e15b4744fc78d5f0dbb57fcd1ca (diff) | |
| download | emacs-9899d01a0ccec166e04caa60657a44e614be50cd.tar.gz emacs-9899d01a0ccec166e04caa60657a44e614be50cd.zip | |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 824-838)
- Update from CVS
- Merge from emacs--rel--22
- Remove lisp/erc/erc-nicklist.el
- Update some .arch-inventory files
- Fix void function definition error in cus-edit.el
- Restore lisp/emacs-lisp/cl-loaddefs.el
* emacs--rel--22 (patch 70-83)
- Update from CVS
- Remove lisp/erc/erc-nicklist.el
- Update some .arch-inventory files
- Indicate that emacs--devo--0--patch-834 does not need to be applied
- Merge from gnus--rel--5.10
- Restore lisp/emacs-lisp/cl-loaddefs.el
* gnus--rel--5.10 (patch 239-241)
- Merge from emacs--devo--0
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-28
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/lread.c b/src/lread.c index 5f4d69a3312..78e8b2730fe 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -7,7 +7,7 @@ This file is part of GNU Emacs. | |||
| 7 | 7 | ||
| 8 | GNU Emacs is free software; you can redistribute it and/or modify | 8 | GNU Emacs is free software; you can redistribute it and/or modify |
| 9 | it under the terms of the GNU General Public License as published by | 9 | it under the terms of the GNU General Public License as published by |
| 10 | the Free Software Foundation; either version 2, or (at your option) | 10 | the Free Software Foundation; either version 3, or (at your option) |
| 11 | any later version. | 11 | any later version. |
| 12 | 12 | ||
| 13 | GNU Emacs is distributed in the hope that it will be useful, | 13 | GNU Emacs is distributed in the hope that it will be useful, |
| @@ -1503,7 +1503,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun, | |||
| 1503 | } | 1503 | } |
| 1504 | 1504 | ||
| 1505 | /* Ignore whitespace here, so we can detect eof. */ | 1505 | /* Ignore whitespace here, so we can detect eof. */ |
| 1506 | if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r') | 1506 | if (c == ' ' || c == '\t' || c == '\n' || c == '\f' || c == '\r' |
| 1507 | || c == 0x8a0) /* NBSP */ | ||
| 1507 | goto read_next; | 1508 | goto read_next; |
| 1508 | 1509 | ||
| 1509 | if (!NILP (Vpurify_flag) && c == '(') | 1510 | if (!NILP (Vpurify_flag) && c == '(') |
| @@ -2695,7 +2696,9 @@ read1 (readcharfun, pch, first_in_list) | |||
| 2695 | } | 2696 | } |
| 2696 | default: | 2697 | default: |
| 2697 | default_label: | 2698 | default_label: |
| 2698 | if (c <= 040) goto retry; | 2699 | if (c <= 040) goto retry; |
| 2700 | if (c == 0x8a0) /* NBSP */ | ||
| 2701 | goto retry; | ||
| 2699 | { | 2702 | { |
| 2700 | char *p = read_buffer; | 2703 | char *p = read_buffer; |
| 2701 | int quoted = 0; | 2704 | int quoted = 0; |
| @@ -2704,6 +2707,7 @@ read1 (readcharfun, pch, first_in_list) | |||
| 2704 | char *end = read_buffer + read_buffer_size; | 2707 | char *end = read_buffer + read_buffer_size; |
| 2705 | 2708 | ||
| 2706 | while (c > 040 | 2709 | while (c > 040 |
| 2710 | && c != 0x8a0 /* NBSP */ | ||
| 2707 | && (c >= 0200 | 2711 | && (c >= 0200 |
| 2708 | || (!index ("\"';()[]#", c) | 2712 | || (!index ("\"';()[]#", c) |
| 2709 | && !(!first_in_list && c == '`') | 2713 | && !(!first_in_list && c == '`') |