# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 760224907 0
# Node ID 94535442be19e9eebfe521b3c81612d2fbd864db
# Parent  01628c0b26461ba6589704ecd4b32fe446f1c1ad
(ad-execute-defadvices): Don't allocate advice-infos in pure space, in case we
want to preload this file.

diff -r 01628c0b2646 -r 94535442be19 lisp/emacs-lisp/advice.el
--- 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