# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 735536613 0
# Node ID 4f201a4ab0307b160d198b75659a275902a88fe4
# Parent  c1a1557bffde31c3b51fb1d415202ded5b78a6f5
(define-function): Changed name back to defalisaases to get things in
a known-good state.

diff -r c1a1557bffde -r 4f201a4ab030 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Fri Apr 23 03:40:03 1993 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Fri Apr 23 03:43:33 1993 +0000
@@ -1334,8 +1334,9 @@
   ;; writes the given form to the output buffer, being careful of docstrings
   ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is
   ;; so amazingly stupid.
-  ;; define-functions are output directly by byte-compile-file-form-defmumble; it does
-  ;; not pay to first build the define-function in defmumble and then parse it here.
+  ;; defalias calls are output directly by byte-compile-file-form-defmumble;
+  ;; it does not pay to first build the defalias in defmumble and then parse
+  ;; it here.
   (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload))
 	   (stringp (nth 3 form)))
       (byte-compile-output-docform '("\n(" 3 ")") form)
@@ -1376,7 +1377,7 @@
       (let ((for-effect t))
 	;; To avoid consing up monstrously large forms at load time, we split
 	;; the output regularly.
-	(and (eq (car-safe form) 'define-function) (nthcdr 300 byte-compile-output)
+	(and (eq (car-safe form) 'defalias) (nthcdr 300 byte-compile-output)
 	     (byte-compile-flush-pending))
 	(funcall handler form)
 	(if for-effect
@@ -1569,9 +1570,9 @@
 					 new-one)))))
 	     'byte-compile-two-args)
 	  ;; Output the form by hand, that's much simpler than having
-	  ;; b-c-output-file-form analyze the define-function.
+	  ;; b-c-output-file-form analyze the defalias.
 	  (byte-compile-flush-pending)
-	  (princ "\n(define-function '" outbuffer)
+	  (princ "\n(defalias '" outbuffer)
 	  (prin1 name outbuffer)
 	  (byte-compile-output-docform
 	   (cond ((atom code)
@@ -1602,7 +1603,7 @@
 			   (cons 'macro (byte-compile-lambda fun))
 			 (byte-compile-lambda fun)))
 	     (if (symbolp form)
-		 (define-function form fun)
+		 (defalias form fun)
 	       fun)))))))
 
 (defun byte-compile-sexp (sexp)