Silence XEmacs when compiling

* dgnushack.el (declare-function): Redefine it to use autoload.
* lpath.el (gnus-html-prefetch-images): Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e48594..2b6ba51 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-05-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (declare-function): Redefine it to use autoload.
+       * lpath.el (gnus-html-prefetch-images): Declare.
+
 2015-05-04  Glenn Morris  <rgm@gnu.org>
 
        * gnus-art.el (nneething-get-file-name): Declare rather than autoload.

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 99b4f5b..8f2a369 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -27,7 +27,9 @@
 (defvar dgnushack-default-load-path (copy-sequence load-path))
 
 (unless (fboundp 'declare-function)
-  (defmacro declare-function (&rest r)))
+  (defmacro declare-function (fn file &optional arglist fileonly)
+    `(eval-when-compile
+       (if (not (fboundp ',fn)) (autoload ',fn ,file)))))
 
 (defalias 'facep 'ignore)
 

diff --git a/lisp/lpath.el b/lisp/lpath.el
index e6703ec..ac8149d 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -43,6 +43,7 @@
   (defun canlock-insert-header (&optional id-for-key id-for-lock password))
   (defun ecomplete-add-item (type key text))
   (defun ecomplete-save nil)
+  (defun gnus-html-prefetch-images (summary))
   (defun hashcash-wait-async (&optional buffer))
   (defun mail-add-payment (&optional arg async))
   (defun mail-add-payment-async (&optional arg))