Mercurial > emacs
changeset 2566:4f201a4ab030
(define-function): Changed name back to defalisaases to get things in
a known-good state.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Fri, 23 Apr 1993 03:43:33 +0000 |
| parents | c1a1557bffde |
| children | 2cd6cb337d7c |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)