X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fdgnushack.el;h=404ee1209f1bf6e71b0244edd36faa06b946adf0;hp=8f2a3697545cc80562db22ccaa7e4fc34222e596;hb=9e2d18b698808b3a1e80add234e900cdf673534f;hpb=823de7d87583241aa122e86a93278537372f02db

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 8f2a36975..404ee1209 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -26,10 +26,10 @@
 
 (defvar dgnushack-default-load-path (copy-sequence load-path))
 
-(unless (fboundp 'declare-function)
+(when (featurep 'xemacs)
   (defmacro declare-function (fn file &optional arglist fileonly)
     `(eval-when-compile
-       (if (not (fboundp ',fn)) (autoload ',fn ,file)))))
+       (unless (fboundp ',fn) (autoload ',fn ,file)))))
 
 (defalias 'facep 'ignore)