master 26041ec: * lisp/net/shr.el (shr-image-displayer): Use proper closures

[Stefan Monnier]

branch: master
commit 26041ec8d518806e29566af4428bb61d6d36d0b7
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * lisp/net/shr.el (shr-image-displayer): Use proper closures
---
 lisp/net/shr.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index cbdeb65..873f045 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1257,20 +1257,20 @@ Return a string with image data."
 CONTENT-FUNCTION is a function to retrieve an image for a cid url that
 is an argument.  The function to be returned takes three arguments URL,
 START, and END.  Note that START and END should be markers."
-  `(lambda (url start end)
-     (when url
-       (if (string-match "\\`cid:" url)
-          ,(when content-function
-             `(let ((image (funcall ,content-function
-                                    (substring url (match-end 0)))))
-                (when image
-                  (goto-char start)
-                  (funcall shr-put-image-function
-                           image (buffer-substring start end))
-                  (delete-region (point) end))))
-         (url-retrieve url #'shr-image-fetched
-                      (list (current-buffer) start end)
-                      t t)))))
+  (lambda (url start end)
+    (when url
+      (if (string-match "\\`cid:" url)
+         (when content-function
+           (let ((image (funcall content-function
+                                 (substring url (match-end 0)))))
+             (when image
+               (goto-char start)
+               (funcall shr-put-image-function
+                        image (buffer-substring start end))
+               (delete-region (point) end))))
+        (url-retrieve url #'shr-image-fetched
+                     (list (current-buffer) start end)
+                     t t)))))
 
 (defun shr-heading (dom &rest types)
   (shr-ensure-paragraph)