diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-01 22:13:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-01 22:13:28 +0000 |
| commit | f4e90b76154bf7bf68a695cb8c5767c350ab67fd (patch) | |
| tree | 0466a28630c7b555bca515bc85952872eb8376ff /lisp/emacs-lisp | |
| parent | a3d1480b7d2af7f70d38a27378f5fe68ef53b15d (diff) | |
| download | emacs-f4e90b76154bf7bf68a695cb8c5767c350ab67fd.tar.gz emacs-f4e90b76154bf7bf68a695cb8c5767c350ab67fd.tar.bz2 emacs-f4e90b76154bf7bf68a695cb8c5767c350ab67fd.zip | |
(byte-compile-file-form-defmumble):
If byte-compile-compatibility, use fset, not defalias.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 59d1f399b25..4fd911c7671 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1579,7 +1579,9 @@ With argument, insert value in current buffer after the form." (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 @@ With argument, insert value in current buffer after the form." ;; 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) |