Mercurial > emacs
changeset 87192:4b72ecd263bd
(declare-function): Add compatibility declaration.
(w3-do-setup, w3-region, w3-prepare-buffer, w3m-detect-meta-charset)
(w3m-region): Declare as functions.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 09 Dec 2007 02:10:57 +0000 |
| parents | 066a2efbc9c8 |
| children | b40a0f01cf1e |
| files | lisp/gnus/mm-view.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/mm-view.el Sun Dec 09 02:10:05 2007 +0000 +++ b/lisp/gnus/mm-view.el Sun Dec 09 02:10:57 2007 +0000 @@ -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