X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=7df595dea2a284310b2a5b2627d0307ec2350beb;hp=c57df7dcd60038e4cb8b1ce6f4c8af4f766e0c4a;hb=0d65ffa3ab238529a11d5c1a5d2dea5a6c27e9b4;hpb=9213f564dcae90f74366bd99f28640d0c62aa89b;ds=sidebyside

diff --git a/elpher.el b/elpher.el
index c57df7d..7df595d 100644
--- a/elpher.el
+++ b/elpher.el
@@ -2281,8 +2281,12 @@ 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-iri address))))
+  (let* ((address (elpher-page-address page))
+         (url (elpher-address-to-url address))
+         (iri (elpher-address-to-iri address)))
+    (if (equal url iri)
+        (message "%s" url)
+      (message "%s (Raw: %s)" iri url))))
 
 (defun elpher-info-link ()
   "Display information on page corresponding to link at point."