X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=c57df7dcd60038e4cb8b1ce6f4c8af4f766e0c4a;hp=fc7ed8f1ca966f6e0a29a5953a04042f8b06be7b;hb=9213f564dcae90f74366bd99f28640d0c62aa89b;hpb=0916ee629368e59197a8c4c9869e31be397b17f6

diff --git a/elpher.el b/elpher.el
index fc7ed8f..c57df7d 100644
--- a/elpher.el
+++ b/elpher.el
@@ -6,6 +6,7 @@
 ;; Copyright (C) 2021 Omar Polo <op@omarpolo.com>
 ;; Copyright (C) 2021 Noodles! <nnoodle@chiru.no>
 ;; Copyright (C) 2021 Abhiseck Paira <abhiseckpaira@disroot.org>
+;; Copyright (C) 2021 Daniel Semyonov <daniel@dsemy.com>
 ;; Copyright (C) 2020-2021 Alex Schroeder <alex@gnu.org>
 ;; Copyright (C) 2020 Zhiwei Chen <chenzhiwei03@kuaishou.com>
 ;; Copyright (C) 2020 condy0919 <condy0919@gmail.com>
@@ -1175,14 +1176,16 @@ If ADDRESS is not supplied or nil the record is rendered as an
     (if (display-images-p)
         (let* ((image (create-image
                        data
-                       nil t))
-               (window (get-buffer-window elpher-buffer-name)))
-          (when window
-            (setf (image-property image :max-width) (window-body-width window t))
-            (setf (image-property image :max-height) (window-body-height window t)))
-          (elpher-with-clean-buffer
-           (insert-image image)
-           (elpher-restore-pos)))
+                       nil t)))
+          (if (not image)
+              (error "Unsupported image format")
+            (let ((window (get-buffer-window elpher-buffer-name)))
+              (when window
+                (setf (image-property image :max-width) (window-body-width window t))
+                (setf (image-property image :max-height) (window-body-height window t))))
+            (elpher-with-clean-buffer
+             (insert-image image)
+             (elpher-restore-pos))))
       (elpher-render-download data))))
 
 ;; Search retrieval and rendering
@@ -2279,7 +2282,7 @@ When run interactively HOST-OR-URL is read from the minibuffer."
 (defun elpher-info-page (page)
   "Display URL of PAGE in minibuffer."
   (let ((address (elpher-page-address page)))
-    (message "%s" (elpher-address-to-url address))))
+    (message "%s" (elpher-address-to-iri address))))
 
 (defun elpher-info-link ()
   "Display information on page corresponding to link at point."