Commit 49ad38a1 authored by Glenn Morris's avatar Glenn Morris
Browse files

(declare-function): Add compatibility declaration.

(w3-do-setup, w3-region, w3-prepare-buffer, w3m-detect-meta-charset)
(w3m-region): Declare as functions.
parent b43906b6
...@@ -24,7 +24,8 @@ ...@@ -24,7 +24,8 @@
;;; Commentary: ;;; Commentary:
;;; Code: ;;; Code:
(eval-and-compile
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
(eval-when-compile (require 'cl)) (eval-when-compile (require 'cl))
(require 'mail-parse) (require 'mail-parse)
(require 'mailcap) (require 'mailcap)
...@@ -117,6 +118,11 @@ ...@@ -117,6 +118,11 @@
(defalias 'mm-inline-image 'mm-inline-image-xemacs) (defalias 'mm-inline-image 'mm-inline-image-xemacs)
(defalias 'mm-inline-image 'mm-inline-image-emacs))) (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) (defvar mm-w3-setup nil)
(defun mm-setup-w3 () (defun mm-setup-w3 ()
(unless mm-w3-setup (unless mm-w3-setup
...@@ -201,6 +207,10 @@ ...@@ -201,6 +207,10 @@
(defvar mm-w3m-setup nil (defvar mm-w3m-setup nil
"Whether gnus-article-mode has been setup to use emacs-w3m.") "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 () (defun mm-setup-w3m ()
"Setup gnus-article-mode to use emacs-w3m." "Setup gnus-article-mode to use emacs-w3m."
(unless mm-w3m-setup (unless mm-w3m-setup
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment