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
ad39faca
Commit
ad39faca
authored
Jun 19, 2011
by
Paul Eggert
Browse files
* minibuf.c (Fread_buffer): Don't assume strlen fits in int.
parent
6e5bb2dc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
3 additions
and
2 deletions
+3
-2
src/ChangeLog
src/ChangeLog
+1
-0
src/minibuf.c
src/minibuf.c
+2
-2
No files found.
src/ChangeLog
View file @
ad39faca
2011-06-20 Paul Eggert <eggert@cs.ucla.edu>
* minibuf.c (Fread_buffer):
* lread.c (intern, intern_c_string):
* image.c (xpm_scan) [HAVE_NS && !HAVE_XPM]:
Don't assume string length fits in int.
...
...
src/minibuf.c
View file @
ad39faca
...
...
@@ -1115,7 +1115,7 @@ function, instead of the usual behavior. */)
{
Lisp_Object
args
[
4
],
result
;
char
*
s
;
in
t
len
;
ptrdiff_
t
len
;
int
count
=
SPECPDL_INDEX
();
if
(
BUFFERP
(
def
))
...
...
@@ -1137,7 +1137,7 @@ function, instead of the usual behavior. */)
if
(
STRINGP
(
prompt
))
{
s
=
SSDATA
(
prompt
);
len
=
strlen
(
s
);
len
=
SBYTES
(
prompt
);
if
(
len
>=
2
&&
s
[
len
-
2
]
==
':'
&&
s
[
len
-
1
]
==
' '
)
len
=
len
-
2
;
else
if
(
len
>=
1
&&
(
s
[
len
-
1
]
==
':'
||
s
[
len
-
1
]
==
' '
))
...
...
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