mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(byte-compile-keep-pending): Handle fset like defalias.

Browse source 
(byte-compile-file-form-defmumble): Fix backward if in prev change.
This commit is contained in:
Richard M. Stallman 1993-07-02 17:46:43 +00:00
parent de6fd4b97c
commit b4ff4a23cb
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1396,7 +1396,8 @@ With argument, insert value in current buffer after the form."
(let ((for-effect t)) (let ((for-effect t))
;; To avoid consing up monstrously large forms at load time, we split ;; To avoid consing up monstrously large forms at load time, we split
;; the output regularly. ;; 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)) (byte-compile-flush-pending))
(funcall handler form) (funcall handler form)
(if for-effect (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. ;; No doc string to make-docfile; insert form in normal code.
(byte-compile-keep-pending (byte-compile-keep-pending
(list (if (byte-compile-version-cond byte-compile-compatibility) (list (if (byte-compile-version-cond byte-compile-compatibility)
'defalias 'fset) 'fset 'defalias)
(list 'quote name) (list 'quote name)
(cond ((not macrop) (cond ((not macrop)
code) code)
@ -1593,7 +1594,7 @@ With argument, insert value in current buffer after the form."
;; b-c-output-file-form analyze the defalias. ;; b-c-output-file-form analyze the defalias.
(byte-compile-flush-pending) (byte-compile-flush-pending)
(princ (if (byte-compile-version-cond byte-compile-compatibility) (princ (if (byte-compile-version-cond byte-compile-compatibility)
"\n(defalias '" "\n(fset '") "\n(fset '" "\n(defalias '")
outbuffer) outbuffer)
(prin1 name outbuffer) (prin1 name outbuffer)
(byte-compile-output-docform (byte-compile-output-docform