[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 2b8154f: Signal an error when `setq' has an odd n
From: |
Alan Mackenzie |
Subject: |
[Emacs-diffs] emacs-25 2b8154f: Signal an error when `setq' has an odd number of arguments. Fixes bug#20241. |
Date: |
Mon, 23 Nov 2015 13:56:40 +0000 |
branch: emacs-25
commit 2b8154f2bc1ad678fdb8e4677cf25359251d5c01
Author: Alan Mackenzie <address@hidden>
Commit: Alan Mackenzie <address@hidden>
Signal an error when `setq' has an odd number of arguments. Fixes
bug#20241.
* src/eval.c (Fsetq): Signal an error on an odd number of arguments.
(syms_of_eval): Add a DEFSYM for Qsetq.
---
src/eval.c | 5 +++++
1 files changed, 5 insertions(+), 0 deletions(-)
diff --git a/src/eval.c b/src/eval.c
index 023c2ef..d04796a 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -487,6 +487,10 @@ usage: (setq [SYM VAL]...) */)
if (CONSP (args))
{
Lisp_Object args_left = args;
+ Lisp_Object numargs = Flength (args);
+
+ if (XINT (numargs) & 1)
+ xsignal2 (Qwrong_number_of_arguments, Qsetq, numargs);
do
{
@@ -3654,6 +3658,7 @@ To prevent this happening, set `quit-flag' to nil
before making `inhibit-quit' nil. */);
Vinhibit_quit = Qnil;
+ DEFSYM (Qsetq, "setq");
DEFSYM (Qinhibit_quit, "inhibit-quit");
DEFSYM (Qautoload, "autoload");
DEFSYM (Qinhibit_debugger, "inhibit-debugger");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 2b8154f: Signal an error when `setq' has an odd number of arguments. Fixes bug#20241.,
Alan Mackenzie <=