diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-02 17:46:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-02 17:46:43 +0000 |
| commit | b4ff4a23cb64ab2766fd3b10c09c545b5d3b5f9b (patch) | |
| tree | e376770caaaa8ab1c33578528d15d8a626c71b8d /lisp/emacs-lisp | |
| parent | de6fd4b97c0e0a9a6db3faf4c4c66eac1dac2037 (diff) | |
| download | emacs-b4ff4a23cb64ab2766fd3b10c09c545b5d3b5f9b.tar.gz emacs-b4ff4a23cb64ab2766fd3b10c09c545b5d3b5f9b.tar.bz2 emacs-b4ff4a23cb64ab2766fd3b10c09c545b5d3b5f9b.zip | |
(byte-compile-keep-pending): Handle fset like defalias.
(byte-compile-file-form-defmumble): Fix backward if in prev change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 4fd911c7671..e3969cf4f85 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1396,7 +1396,8 @@ With argument, insert value in current buffer after the form." (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 @@ With argument, insert value in current buffer after the form." ;; 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 @@ With argument, insert value in current buffer after the form." ;; 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 |