Mercurial > emacs
changeset 111285:c9da32007d99
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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 31 Oct 2010 19:19:17 -0700 |
| parents | c8afa6dd9295 |
| children | 3f47a5cf9ad5 |
| files | lisp/gnus/ChangeLog lisp/gnus/shr.el |
| diffstat | 2 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Oct 31 19:11:34 2010 -0700 +++ b/lisp/gnus/ChangeLog Sun Oct 31 19:19:17 2010 -0700 @@ -1,5 +1,9 @@ 2010-11-01 Glenn Morris <rgm@gnu.org> + * 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.
--- a/lisp/gnus/shr.el Sun Oct 31 19:11:34 2010 -0700 +++ b/lisp/gnus/shr.el Sun Oct 31 19:19:17 2010 -0700 @@ -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 @@ 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 @@ (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)