mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(ad-execute-defadvices): Don't allocate advice-infos in pure space, in case we

Browse source 
want to preload this file.
This commit is contained in:
Karl Heuer 1994-02-02 21:35:07 +00:00
parent d9f132a8ac
commit 835cd48e6a
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4050,7 +4050,12 @@ functions in `ad-definition-hooks' will be run after the re/definition with
(if (not (ad-get-arg 1))
(setq ad-return-value
(substitute-command-keys ad-return-value))))))))
;; Make sure advice-infos are not allocated in pure space (right now they
;; are constants that are part of `ad-execute-defadvices's definition):
(ad-dolist (advised-function '(defun defmacro fset defalias
define-function documentation))
(ad-set-advice-info advised-function (ad-copy-advice-info advised-function)))
) ;; end of ad-execute-defadvices