procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-file-form-defmumble):

Browse source 
If byte-compile-compatibility, use fset, not defalias.
This commit is contained in:
Richard M. Stallman 1993-07-01 22:13:28 +00:00
parent a3d1480b7d
commit f4e90b7615
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View file

@ -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)