From 823de7d87583241aa122e86a93278537372f02db Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Thu, 7 May 2015 00:16:50 +0000 Subject: [PATCH] Silence XEmacs when compiling * dgnushack.el (declare-function): Redefine it to use autoload. * lpath.el (gnus-html-prefetch-images): Declare. --- lisp/ChangeLog | 5 +++++ lisp/dgnushack.el | 4 +++- lisp/lpath.el | 1 + 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e48594f1..2b6ba5111 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2015-05-07 Katsumi Yamaoka + + * dgnushack.el (declare-function): Redefine it to use autoload. + * lpath.el (gnus-html-prefetch-images): Declare. + 2015-05-04 Glenn Morris * gnus-art.el (nneething-get-file-name): Declare rather than autoload. diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el index 99b4f5b0d..8f2a36975 100644 --- 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 e6703ec00..ac8149df4 100644 --- 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)) -- 2.25.1