aboutsummaryrefslogtreecommitdiffstats
path: root/src/lread.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/lread.c')
-rw-r--r--src/lread.c10
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
8GNU Emacs is free software; you can redistribute it and/or modify 8GNU Emacs is free software; you can redistribute it and/or modify
9it under the terms of the GNU General Public License as published by 9it under the terms of the GNU General Public License as published by
10the Free Software Foundation; either version 2, or (at your option) 10the Free Software Foundation; either version 3, or (at your option)
11any later version. 11any later version.
12 12
13GNU Emacs is distributed in the hope that it will be useful, 13GNU 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 == '`')