* lisp/emacs-lisp/advice.el (defadvice): Mark as obsolete

diff --git a/etc/NEWS b/etc/NEWS
index 7b521f3e6fe559e38fbeb81394a389f8d1db4e8f..567f19012eb393c7e1b0be6910ba32c6f3fe730f 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -685,6 +685,10 @@ provokes an error if used numerically.
 \f
 * Lisp Changes in Emacs 30.1
 
+** 'defadvice' is marked as obsolete.
+See (info "(elisp)Porting Old Advice") for help converting them
+to use `advice-add` or `define-advice instead.
+
 +++
 ** New user option 'safe-local-variable-directories'.
 This user option names directories in which Emacs will treat all

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 56f0ae2212c541f5cd96aa782236e4d176cba857..3265809f592d2070580622e05f665dfae00d9c14 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -3131,6 +3131,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...)
           [DOCSTRING] [INTERACTIVE-FORM]
           BODY...)"
   (declare (doc-string 3) (indent 2)
+           (obsolete "use advice-add or define-advice" "30.1")
            (debug (&define name  ;; thing being advised.
                            (name ;; class is [&or "before" "around" "after"
                                  ;;               "activation" "deactivation"]