[nongnu] elpa/xkcd 7b1a312239 37/82: Add an help-echo text property to display the alt-text

[ELPA Syncer]

branch: elpa/xkcd
commit 7b1a312239c0c9175948aa853185bf2c62dac39a
Author: Raphaël Cauderlier <cauderlier@crans.org>
Commit: Raphaël Cauderlier <cauderlier@crans.org>

    Add an help-echo text property to display the alt-text
---
 xkcd.el | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/xkcd.el b/xkcd.el
index 940ac9185d..8002c8fa8b 100644
--- a/xkcd.el
+++ b/xkcd.el
@@ -139,11 +139,14 @@ be located in xkcd-cache-dir"
     (setq title (format "%d: %s" (cdr (assoc 'num (json-read-from-string out)))
                        (cdr (assoc 'safe_title (json-read-from-string out)))))
     (insert (concat title "\n"))
-    (insert-image (create-image
-                  (concat xkcd-cache-dir
-                          (number-to-string
-                           (cdr
-                            (assoc 'num (json-read-from-string out)))) ".png") 
'png))
+    (let ((start (point)))
+      (insert-image (create-image
+                     (concat xkcd-cache-dir
+                             (number-to-string
+                              (cdr
+                               (assoc 'num (json-read-from-string out)))) 
".png") 'png))
+      (add-text-properties start (point) '(help-echo xkcd-alt))
+      )
     (if (eq xkcd-cur 0)
        (setq xkcd-cur (cdr (assoc 'num (json-read-from-string out)))))
     (xkcd-cache-json num out)