(when): Check whether defadvice is fbound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13f9046..f410024 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-01  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * dgnushack.el (when): Check whether defadvice is fbound.
+
 2003-05-01  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * gnus-registry.el (gnus-registry-unregistered-group-regex): new variable

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index c141bd9..327b02c 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -132,7 +132,7 @@
       (autoload 'custom-declare-face "cus-face" nil t)
       (autoload 'cl-compile-time-init "cl-macs" nil t)
       (autoload 'defadvice "advice" nil nil 'macro))
-    (when (eq emacs-minor-version 4)
+    (unless (fboundp 'defadvice)
       (autoload 'defadvice "advice" nil nil 'macro))
     (autoload 'Info-directory "info" nil t)
     (autoload 'Info-menu "info" nil t)