branch: elpa/jabber
commit c527ef8cb39b2f10eca6eea358ae1c1d7610aeea
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
chat: Make w copy plain file URLs too
---
lisp/jabber-chat.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/jabber-chat.el b/lisp/jabber-chat.el
index a948f3473a..25dd6a078e 100644
--- a/lisp/jabber-chat.el
+++ b/lisp/jabber-chat.el
@@ -1664,7 +1664,8 @@ ALLOWED-TYPES and `jabber-image-max-bytes' are enforced
per
(defun jabber-chat-copy-url ()
"Copy the URL at point to the kill ring and display it."
(interactive)
- (if-let* ((url (get-text-property (point) 'jabber-chat-image-url)))
+ (if-let* ((url (or (get-text-property (point) 'jabber-chat-file-url)
+ (get-text-property (point) 'jabber-chat-image-url))))
(progn (kill-new url) (message "%s" url))
(user-error "No URL at point")))
