# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 741635203 0
# Node ID cac16b165691a809e0f8b54224f634db39e7ab50
# Parent  d0c23febc08c12c518f94f9e97318e323469e0a3
(byte-compile-keep-pending): Handle fset like defalias.
(byte-compile-file-form-defmumble): Fix backward if in prev change.

diff -r d0c23febc08c -r cac16b165691 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Jul 02 05:43:43 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Jul 02 17:46:43 1993 +0000
@@ -1396,7 +1396,8 @@
       (let ((for-effect t))
 	;; To avoid consing up monstrously large forms at load time, we split
 	;; the output regularly.
-	(and (eq (car-safe form) 'defalias) (nthcdr 300 byte-compile-output)
+	(and (memq (car-safe form) '(fset defalias))
+	     (nthcdr 300 byte-compile-output)
 	     (byte-compile-flush-pending))
 	(funcall handler form)
 	(if for-effect
@@ -1580,7 +1581,7 @@
 	    ;; No doc string to make-docfile; insert form in normal code.
 	    (byte-compile-keep-pending
 	     (list (if (byte-compile-version-cond byte-compile-compatibility)
-		       'defalias 'fset)
+		       'fset 'defalias)
 		   (list 'quote name)
 		   (cond ((not macrop)
 			  code)
@@ -1593,7 +1594,7 @@
 	  ;; b-c-output-file-form analyze the defalias.
 	  (byte-compile-flush-pending)
 	  (princ (if (byte-compile-version-cond byte-compile-compatibility)
-		     "\n(defalias '" "\n(fset '")
+		     "\n(fset '" "\n(defalias '")
 		 outbuffer)
 	  (prin1 name outbuffer)
 	  (byte-compile-output-docform