# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 742014388 0
# Node ID 29f808aa587fe42c580e4be711ec32e17de2af68
# Parent  26e0209b6e568fc2c5fa1015d16b96d3b7a47aa5
(byte-compile-setq-default): Handle multiple pairs args like setq (as
the setq-default subr does).

diff -r 26e0209b6e56 -r 29f808aa587f lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Wed Jul 07 02:03:18 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Wed Jul 07 03:06:28 1993 +0000
@@ -2420,9 +2420,15 @@
     (setq for-effect nil)))
 
 (defun byte-compile-setq-default (form)
-  (byte-compile-form
-   (cons 'set-default (cons (list 'quote (nth 1 form))
-			    (nthcdr 2 form)))))
+  (let ((args (cdr form)))
+    (if args
+	(while args
+	  (byte-compile-form
+	   (list 'set-default (list 'quote (car args)) (car (cdr args))))
+	  (setq args (cdr (cdr args))))
+      ;; (setq-default), with no arguments.
+      (byte-compile-form nil for-effect))
+    (setq for-effect nil)))
 
 (defun byte-compile-quote (form)
   (byte-compile-constant (car (cdr form))))