procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(shr-rescale-image): Clarify logic slightly

Browse source 
* lisp/net/shr.el (shr-rescale-image): Clarify logic slightly.
This commit is contained in:
Lars Ingebrigtsen 2016-05-03 17:26:54 +02:00
parent 72166f2f3d
commit 43bb4305c5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/net/shr.el
View file

@ -1008,8 +1008,8 @@ element is the data blob and the second element is the content-type."
(defun shr-rescale-image (data content-type width height)
"Rescale DATA, if too big, to fit the current buffer.
WIDTH and HEIGHT are the sizes given in the HTML data, if any."
(if (not (and (fboundp 'imagemagick-types)
(get-buffer-window (current-buffer))))
(if (or (not (fboundp 'imagemagick-types))
(not (get-buffer-window (current-buffer))))
(create-image data nil t :ascent 100)
(let* ((edges (window-inside-pixel-edges
(get-buffer-window (current-buffer))))