branch: elpa/jabber
commit 20ef52af42e51e525f03549105a0d6d10666b6ae
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
chat: Drop link face from URLs displayed as inline images
---
lisp/jabber-chat.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lisp/jabber-chat.el b/lisp/jabber-chat.el
index 5b56f69e82..ecf9011620 100644
--- a/lisp/jabber-chat.el
+++ b/lisp/jabber-chat.el
@@ -1930,6 +1930,12 @@ SCALE defaults to 1.0 and is stored on the displayed
range."
'jabber-chat-image-scale scale
'jabber-chat-image-fetching nil))
(jabber-chat--add-url-keymap beg end)
+ ;; The goto-address overlay's link face would draw an underline
+ ;; beneath the image, and its mouse-face would highlight it.
+ (dolist (ov (overlays-in beg end))
+ (when (overlay-get ov 'goto-address)
+ (overlay-put ov 'face nil)
+ (overlay-put ov 'mouse-face nil)))
display-image))
(defun jabber-chat--cache-image (url image)
