changeset 5746:94535442be19

(ad-execute-defadvices): Don't allocate advice-infos in pure space, in case we want to preload this file.
author Karl Heuer <kwzh@gnu.org>
date Wed, 02 Feb 1994 21:35:07 +0000
parents 01628c0b2646
children cbd0de32e997
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el	Wed Feb 02 20:43:50 1994 +0000
+++ b/lisp/emacs-lisp/advice.el	Wed Feb 02 21:35:07 1994 +0000
@@ -4050,7 +4050,12 @@
 	       (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