From 85a45a691bc035cb4e4c2620e9722aa1c622e948 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 31 Oct 2010 19:19:17 -0700 Subject: [PATCH] Silence shr.el compilation. * lisp/gnus/shr.el (declare-function): Add compat stub. (url-cache-create-filename): Declare. (mm-disable-multibyte, widget-convert-button): Autoload. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/shr.el | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index efc059aefe1..741ddc3d960 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,9 @@ 2010-11-01 Glenn Morris + * shr.el (declare-function): Add compat stub. + (url-cache-create-filename): Declare. + (mm-disable-multibyte, widget-convert-button): Autoload. + * smime.el (ldap-search): Declare. (smime-cert-by-ldap-1): Require ldap on Emacs. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index c39dd054557..a5774742a27 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -30,6 +30,10 @@ ;;; Code: +;; For Emacs <22.2 and XEmacs. +(eval-and-compile + (unless (fboundp 'declare-function) (defmacro declare-function (&rest r)))) + (eval-when-compile (require 'cl)) (require 'browse-url) (unless (aref (char-category-set (make-char 'japanese-jisx0208 33 35)) ?>) @@ -411,6 +415,10 @@ redirects somewhere else." image))) image))) +;; url-cache-extract autoloads url-cache. +(declare-function url-cache-create-filename "url-cache" (url)) +(autoload 'mm-disable-multibyte "mm-util") + (defun shr-get-image-data (url) "Get image data for URL. Return a string with image data." @@ -428,6 +436,8 @@ Return a string with image data." (apply #'shr-fontize-cont cont types) (shr-ensure-paragraph)) +(autoload 'widget-convert-button "wid-edit") + (defun shr-urlify (start url) (widget-convert-button 'url-link start (point) -- 2.39.2