(byte-compile-setq-default):

Generate a progn of calls to set-default, then compile it.
(byte-compile-file-form-defmumble): Put back second arg of
byte-compile-keep-pending, accidentally deleted before.

1 files changed, 10 insertions, 10 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 6bbe1eba7e7..7364f8803df 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1589,7 +1589,8 @@ With argument, insert value in current buffer after the form."
 			  (list 'cons ''macro code))
 			 ((list 'quote (if macrop
 					   (cons 'macro new-one)
-					 new-one))))))
+					 new-one)))))
+	     'byte-compile-two-args)
 	  ;; Output the form by hand, that's much simpler than having
 	  ;; b-c-output-file-form analyze the defalias.
 	  (byte-compile-flush-pending)
@@ -2420,15 +2421,14 @@ If FORM is a lambda or a macro, byte-compile it as a function."
     (setq for-effect nil)))
 
 (defun byte-compile-setq-default (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)))
+  (let ((args (cdr form))
+	setters)
+    (while args
+      (setq setters
+	    (cons (list 'set-default (list 'quote (car args)) (car (cdr args)))
+		  setters))
+      (setq args (cdr (cdr args))))
+    (byte-compile-form (cons 'progn (nreverse setters)))))
 
 (defun byte-compile-quote (form)
   (byte-compile-constant (car (cdr form))))