Mercurial > emacs

diff lisp/emacs-lisp/advice.el @ 5746:94535442be19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 9cde7d7fea1f
children 2f1deaa86ee2
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