Mercurial > emacs
changeset 3954:cac16b165691
(byte-compile-keep-pending): Handle fset like defalias.
(byte-compile-file-form-defmumble): Fix backward if in prev change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 02 Jul 1993 17:46:43 +0000 |
| parents | d0c23febc08c |
| children | aa3a8669cdda |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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