From 49ad38a13c6bb79874fda023f4e60a2b7ac6db43 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 9 Dec 2007 02:10:57 +0000 Subject: [PATCH] (declare-function): Add compatibility declaration. (w3-do-setup, w3-region, w3-prepare-buffer, w3m-detect-meta-charset) (w3m-region): Declare as functions. --- lisp/gnus/mm-view.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/mm-view.el b/lisp/gnus/mm-view.el index cb4f42dabcf..04e72dffa27 100644 --- a/lisp/gnus/mm-view.el +++ b/lisp/gnus/mm-view.el @@ -24,7 +24,8 @@ ;;; Commentary: ;;; Code: - +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) (eval-when-compile (require 'cl)) (require 'mail-parse) (require 'mailcap) @@ -117,6 +118,11 @@ (defalias 'mm-inline-image 'mm-inline-image-xemacs) (defalias 'mm-inline-image 'mm-inline-image-emacs))) +;; External. +(declare-function w3-do-setup "ext:w3" ()) +(declare-function w3-region "ext:w3-display" (st nd)) +(declare-function w3-prepare-buffer "ext:w3-display" (&rest args)) + (defvar mm-w3-setup nil) (defun mm-setup-w3 () (unless mm-w3-setup @@ -201,6 +207,10 @@ (defvar mm-w3m-setup nil "Whether gnus-article-mode has been setup to use emacs-w3m.") +;; External. +(declare-function w3m-detect-meta-charset "ext:w3m" ()) +(declare-function w3m-region "ext:w3m" (start end &optional url charset)) + (defun mm-setup-w3m () "Setup gnus-article-mode to use emacs-w3m." (unless mm-w3m-setup -- 2.39.2