[Emacs-diffs] emacs-25 2b8154f: Signal an error when `setq' has an odd number of arguments. Fixes bug#20241.

[Alan Mackenzie]

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");