From 96fd6ea2144e30cfb7aae3a3267e349b2e64bc1b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 13 Sep 2013 00:19:15 -0700 Subject: [PATCH] * lisp/gnus/gnus-html.el (image-size): Declare. (declare-function): Add compat stub for ancient Emacs. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/gnus-html.el | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 2eea1fb833e..4e72ae06f51 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2013-09-13 Glenn Morris + + * gnus-html.el (declare-function): Add compat stub for ancient Emacs. + (image-size): Declare. + 2013-09-12 Glenn Morris * gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body): diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el index a5625dfed80..2700af3d009 100644 --- a/lisp/gnus/gnus-html.el +++ b/lisp/gnus/gnus-html.el @@ -28,6 +28,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 'gnus-art) @@ -438,6 +442,9 @@ Return a string with image data." (truncate (* gnus-max-image-proportion (- (nth 3 edges) (nth 1 edges))))))) +;; Behind display-graphic-p test. +(declare-function image-size "image.c" (spec &optional pixels frame)) + (defun gnus-html-put-image (data url &optional alt-text) "Put an image with DATA from URL and optional ALT-TEXT." (when (gnus-graphic-display-p) -- 2.39.2