[Emacs-diffs] trunk r114264: * lisp/gnus/gnus-html.el (image-size): Declare.

[Glenn Morris]

------------------------------------------------------------
revno: 114264
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-13 00:19:15 -0700
message:
  * lisp/gnus/gnus-html.el (image-size): Declare.
  (declare-function): Add compat stub for ancient Emacs.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/gnus-html.el         gnushtml.el-20100830061315-kvhf6jd956enbbtd-1

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2013-09-12 06:47:07 +0000
+++ b/lisp/gnus/ChangeLog       2013-09-13 07:19:15 +0000
@@ -1,3 +1,8 @@
+2013-09-13  Glenn Morris  <address@hidden>
+
+       * gnus-html.el (declare-function): Add compat stub for ancient Emacs.
+       (image-size): Declare.
+
 2013-09-12  Glenn Morris  <address@hidden>
 
        * gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body):

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2013-05-09 01:40:20 +0000
+++ b/lisp/gnus/gnus-html.el    2013-09-13 07:19:15 +0000
@@ -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 @@
      (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)