Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f60d391f
Commit
f60d391f
authored
Oct 18, 2012
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* src/fns.c (Fnreverse): Include the problem element when signalling an error.
Fixes: debbugs:12677
parent
8c27235e
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
src/ChangeLog
src/ChangeLog
+5
-0
src/fns.c
src/fns.c
+2
-2
No files found.
src/ChangeLog
View file @
f60d391f
2012-10-19 Stefan Monnier <monnier@iro.umontreal.ca>
* fns.c (Fnreverse): Include the problem element when signalling an
error (bug#12677).
2012-10-18 Jan Djärv <jan.h.d@swipnet.se>
* nsterm.m (ns_select): Check writefds before call to
...
...
src/fns.c
View file @
f60d391f
...
...
@@ -1689,7 +1689,7 @@ changing the value of a sequence `foo'. */)
DEFUN
(
"nreverse"
,
Fnreverse
,
Snreverse
,
1
,
1
,
0
,
doc
:
/* Reverse LIST by modifying cdr pointers.
Return the reversed list. */
)
Return the reversed list.
Expects a properly nil-terminated list.
*/
)
(
Lisp_Object
list
)
{
register
Lisp_Object
prev
,
tail
,
next
;
...
...
@@ -1700,7 +1700,7 @@ Return the reversed list. */)
while
(
!
NILP
(
tail
))
{
QUIT
;
CHECK_LIST_CONS
(
tail
,
list
);
CHECK_LIST_CONS
(
tail
,
tail
);
next
=
XCDR
(
tail
);
Fsetcdr
(
tail
,
prev
);
prev
=
tail
;
...
...
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