Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/gnus/gnus-html.el (image-size): Declare.

Browse source 
(declare-function): Add compat stub for ancient Emacs.
This commit is contained in:
Glenn Morris 2013-09-13 00:19:15 -07:00
parent 5c3f9bcc3d
commit 96fd6ea214
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2013-09-13 Glenn Morris <rgm@gnu.org>
* gnus-html.el (declare-function): Add compat stub for ancient Emacs.
(image-size): Declare.
2013-09-12 Glenn Morris <rgm@gnu.org>
* gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body):

7
lisp/gnus/gnus-html.el
View file

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