From: Karl Heuer Date: Wed, 2 Feb 1994 21:35:07 +0000 (+0000) Subject: (ad-execute-defadvices): Don't allocate advice-infos in pure space, in case we X-Git-Tag: emacs-19.34~10105 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=835cd48e6a2503f1f364f3160b77248c50516c5c;p=emacs.git (ad-execute-defadvices): Don't allocate advice-infos in pure space, in case we want to preload this file. --- diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 9a6f1fc09c8..83c81a98088 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -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