From 9640c3bce092d39e121b8101756282c816b99066 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 9 Dec 2007 02:04:18 +0000 Subject: [PATCH] (declare-function): Add compatibility declaration. (w3-region, w3m-region, Info-menu): Declare as functions. --- lisp/gnus/gnus-art.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 4bb9ceb97ba..d8f03ff2cb8 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -27,6 +27,9 @@ ;;; Code: +;; For Emacs < 22.2. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) (eval-when-compile (require 'cl)) (defvar tool-bar-map) @@ -2705,6 +2708,9 @@ charset defined in `gnus-summary-show-article-charset-alist' is used." (t (apply (car func) (cdr func)))))))))) +;; External. +(declare-function w3-region "ext:w3-display" (st nd)) + (defun gnus-article-wash-html-with-w3 () "Wash the current buffer with w3." (mm-setup-w3) @@ -2716,6 +2722,9 @@ charset defined in `gnus-summary-show-article-charset-alist' is used." (w3-region (point-min) (point-max)) (error)))) +;; External. +(declare-function w3m-region "ext:w3m" (start end &optional url charset)) + (defun gnus-article-wash-html-with-w3m () "Wash the current buffer with emacs-w3m." (mm-setup-w3m) @@ -7682,6 +7691,9 @@ url is put as the `gnus-button-url' overlay property on the button." "Fetch KDE style info URL." (gnus-info-find-node (gnus-url-unhex-string url))) +;; (info) will autoload info.el +(declare-function Info-menu "info" (menu-item &optional fork)) + (defun gnus-button-handle-info-keystrokes (url) "Call `info' when pushing the corresponding URL button." ;; For links like `C-h i d m gnus RET', `C-h i d m CC Mode RET'. -- 2.39.2