mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

Silence shr.el compilation.

Browse Source 
* lisp/gnus/shr.el (declare-function): Add compat stub.
(url-cache-create-filename): Declare.
(mm-disable-multibyte, widget-convert-button): Autoload.
This commit is contained in:
Glenn Morris 2010-10-31 19:19:17 -07:00
parent b10d32ef78
commit 85a45a691b
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -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.

10
lisp/gnus/shr.el
View File

@ -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)