Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
adef3de7
Commit
adef3de7
authored
Jul 30, 2007
by
Richard M. Stallman
Browse files
(readevalloop, read1): Treat NBSP as whitespace.
parent
100edb42
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
2 deletions
+10
-2
src/ChangeLog
src/ChangeLog
+4
-0
src/lread.c
src/lread.c
+6
-2
No files found.
src/ChangeLog
View file @
adef3de7
2007-07-30 Richard Stallman <rms@gnu.org>
* lread.c (readevalloop, read1): Treat NBSP as whitespace.
2007-07-29 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* gmalloc.c (__malloc_initialize): Remove pthread_once. Not needed.
...
...
src/lread.c
View file @
adef3de7
...
...
@@ -1501,7 +1501,8 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
}
/* Ignore whitespace here, so we can detect eof. */
if
(
c
==
' '
||
c
==
'\t'
||
c
==
'\n'
||
c
==
'\f'
||
c
==
'\r'
)
if
(
c
==
' '
||
c
==
'\t'
||
c
==
'\n'
||
c
==
'\f'
||
c
==
'\r'
||
c
==
0x8a0
)
/* NBSP */
goto
read_next
;
if
(
!
NILP
(
Vpurify_flag
)
&&
c
==
'('
)
...
...
@@ -2693,7 +2694,9 @@ read1 (readcharfun, pch, first_in_list)
}
default:
default_label:
if
(
c
<=
040
)
goto
retry
;
if
(
c
<=
040
)
goto
retry
;
if
(
c
==
0x8a0
)
/* NBSP */
goto
retry
;
{
char
*
p
=
read_buffer
;
int
quoted
=
0
;
...
...
@@ -2702,6 +2705,7 @@ read1 (readcharfun, pch, first_in_list)
char
*
end
=
read_buffer
+
read_buffer_size
;
while
(
c
>
040
&&
c
!=
0x8a0
/* NBSP */
&&
(
c
>=
0200
||
(
!
index
(
"
\"
';()[]#"
,
c
)
&&
!
(
!
first_in_list
&&
c
==
'`'
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment