* net/shr.el (image-size, image-animate): Declare.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3de40545779b0b316df8614b337b00613d0ea197..1cb9f9e8aea8a7467353c63cae6bd98429918c67 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -33,6 +33,8 @@
 
        * net/gnutls.el (gnutls-log-level): Declare.
 
+       * net/shr.el (image-size, image-animate): Declare.
+
        * simple.el (font-info): Declare.
 
        * subr.el (x-popup-dialog): Declare.

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 9cac618b159d42bb4edd2964344b57d51156debe..b742172be461a563a95c89a0b7fce1243993a5b6 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -732,6 +732,10 @@ If EXTERNAL, browse the URL using `shr-external-browser'."
        (setq payload (base64-decode-string payload)))
       payload)))
 
+;; Behind display-graphic-p test.
+(declare-function image-size "image.c" (spec &optional pixels frame))
+(declare-function image-animate "image" (image &optional index limit))
+
 (defun shr-put-image (spec alt &optional flags)
   "Insert image SPEC with a string ALT.  Return image.
 SPEC is either an image data blob, or a list where the first