From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Jul 1993 22:13:28 +0000 (+0000)
Subject: (byte-compile-file-form-defmumble):
X-Git-Tag: emacs-19.34~11903
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f4e90b76154bf7bf68a695cb8c5767c350ab67fd;p=emacs.git

(byte-compile-file-form-defmumble):
If byte-compile-compatibility, use fset, not defalias.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 59d1f399b25..4fd911c7671 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1579,7 +1579,9 @@ With argument, insert value in current buffer after the form."
 	(if (not (stringp (nth 3 form)))
 	    ;; No doc string to make-docfile; insert form in normal code.
 	    (byte-compile-keep-pending
-	     (list 'defalias (list 'quote name)
+	     (list (if (byte-compile-version-cond byte-compile-compatibility)
+		       'defalias 'fset)
+		   (list 'quote name)
 		   (cond ((not macrop)
 			  code)
 			 ((eq 'make-byte-code (car-safe code))
@@ -1590,7 +1592,9 @@ With argument, insert value in current buffer after the form."
 	  ;; Output the form by hand, that's much simpler than having
 	  ;; b-c-output-file-form analyze the defalias.
 	  (byte-compile-flush-pending)
-	  (princ "\n(defalias '" outbuffer)
+	  (princ (if (byte-compile-version-cond byte-compile-compatibility)
+		     "\n(defalias '" "\n(fset '")
+		 outbuffer)
 	  (prin1 name outbuffer)
 	  (byte-compile-output-docform
 	   (cond ((atom code)