Mercurial > emacs
diff lisp/emacs-lisp/bytecomp.el @ 3948:33d46b047130
(byte-compile-file-form-defmumble):
If byte-compile-compatibility, use fset, not defalias.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 01 Jul 1993 22:13:28 +0000 |
parents | 217addf0f940 |
children | cac16b165691 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Jul 01 20:34:13 1993 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Jul 01 22:13:28 1993 +0000 @@ -1579,7 +1579,9 @@ (if (not (stringp (nth 3 form))) ;; No doc string to make-docfile; insert form in normal code. (byte-compile-keep-pending - (list 'defalias (list 'quote name) + (list (if (byte-compile-version-cond byte-compile-compatibility) + 'defalias 'fset) + (list 'quote name) (cond ((not macrop) code) ((eq 'make-byte-code (car-safe code)) @@ -1590,7 +1592,9 @@ ;; Output the form by hand, that's much simpler than having ;; b-c-output-file-form analyze the defalias. (byte-compile-flush-pending) - (princ "\n(defalias '" outbuffer) + (princ (if (byte-compile-version-cond byte-compile-compatibility) + "\n(defalias '" "\n(fset '") + outbuffer) (prin1 name outbuffer) (byte-compile-output-docform (cond ((atom code)