Mercurial > emacs
changeset 2544:ec2eb7c5a2da
(byte-compile, byte-compile-keep-pending)
(byte-compile-file-form-defmumble): Generate define-function
rather than fset, to install definitions for defun, defmacro, etc.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Apr 1993 01:26:24 +0000 |
| parents | 9a1b00513968 |
| children | d666732c5f41 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Fri Apr 16 23:43:57 1993 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sat Apr 17 01:26:24 1993 +0000 @@ -1334,8 +1334,8 @@ ;; 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. - ;; fset's are output directly by byte-compile-file-form-defmumble; it does - ;; not pay to first build the fset in defmumble and then parse it here. + ;; 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. (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload)) (stringp (nth 3 form))) (byte-compile-output-docform '("\n(" 3 ")") form) @@ -1376,7 +1376,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) 'fset) (nthcdr 300 byte-compile-output) + (and (eq (car-safe form) 'define-function) (nthcdr 300 byte-compile-output) (byte-compile-flush-pending)) (funcall handler form) (if for-effect @@ -1569,9 +1569,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 fset. + ;; b-c-output-file-form analyze the define-function. (byte-compile-flush-pending) - (princ "\n(fset '" outbuffer) + (princ "\n(define-function '" outbuffer) (prin1 name outbuffer) (byte-compile-output-docform (cond ((atom code) @@ -1602,7 +1602,7 @@ (cons 'macro (byte-compile-lambda fun)) (byte-compile-lambda fun))) (if (symbolp form) - (fset form fun) + (define-function form fun) fun))))))) (defun byte-compile-sexp (sexp)