Mercurial > emacs
changeset 87187:54ba9c058e4a
(declare-function): Add compatibility declaration.
(w3-region, w3m-region, Info-menu): Declare as functions.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 09 Dec 2007 02:04:18 +0000 |
| parents | b37f01064ecf |
| children | 1b363e0443be |
| files | lisp/gnus/gnus-art.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-art.el Sat Dec 08 22:56:04 2007 +0000 +++ b/lisp/gnus/gnus-art.el Sun Dec 09 02:04:18 2007 +0000 @@ -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 @@ (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 @@ (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 @@ "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'.