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
1283140e
Commit
1283140e
authored
Aug 19, 2007
by
Richard M. Stallman
Browse files
(Ffunction, Fquote): Signal error if not 1 argument.
parent
7e48dd52
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
11 additions
and
1 deletion
+11
-1
src/ChangeLog
src/ChangeLog
+4
-0
src/eval.c
src/eval.c
+7
-1
No files found.
src/ChangeLog
View file @
1283140e
2007-08-19 Richard Stallman <rms@gnu.org>
* eval.c (Ffunction, Fquote): Signal error if not 1 argument.
2007-08-19 Andreas Schwab <schwab@suse.de>
* alloc.c (pure): Round PURESIZE up.
...
...
src/eval.c
View file @
1283140e
...
...
@@ -202,6 +202,8 @@ Lisp_Object Vmacro_declaration_function;
extern
Lisp_Object
Qrisky_local_variable
;
extern
Lisp_Object
Qfunction
;
static
Lisp_Object
funcall_lambda
P_
((
Lisp_Object
,
int
,
Lisp_Object
*
));
static
void
unwind_to_catch
P_
((
struct
catchtag
*
,
Lisp_Object
))
NO_RETURN
;
...
...
@@ -539,7 +541,7 @@ usage: (setq [SYM VAL]...) */)
register
Lisp_Object
val
,
sym
;
struct
gcpro
gcpro1
;
if
(
NILP
(
args
))
if
(
NILP
(
args
))
return
Qnil
;
args_left
=
args
;
...
...
@@ -564,6 +566,8 @@ usage: (quote ARG) */)
(
args
)
Lisp_Object
args
;
{
if
(
!
NILP
(
Fcdr
(
args
)))
xsignal2
(
Qwrong_number_of_arguments
,
Qquote
,
Flength
(
args
));
return
Fcar
(
args
);
}
...
...
@@ -575,6 +579,8 @@ usage: (function ARG) */)
(
args
)
Lisp_Object
args
;
{
if
(
!
NILP
(
Fcdr
(
args
)))
xsignal2
(
Qwrong_number_of_arguments
,
Qfunction
,
Flength
(
args
));
return
Fcar
(
args
);
}
...
...
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