branch: elpa/fedi
commit f9a97d8040cb362c83cc024af8249f97268ebc46
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
propertize-items: if type 'shr, use item-str as LINK arg.
---
fedi.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/fedi.el b/fedi.el
index 594a419b71f..67999d5076f 100644
--- a/fedi.el
+++ b/fedi.el
@@ -783,9 +783,11 @@ used in a link function. For an example of regexes'
subgroups, see
(domain (when domain-subexp ; fedi-post-handle-regex
(buffer-substring-no-properties (match-beginning
domain-subexp)
(match-end
domain-subexp))))
- (link (if (functionp link)
- (funcall link)
- link)))
+ (link (cond ((eq type 'shr)
+ item-str) ;; IF TYPE SHR: USE MATCHED URL
+ ((functionp link)
+ (funcall link))
+ (t link))))
(add-text-properties beg
end
(fedi-link-props face link item type item-str
keymap))
@@ -797,7 +799,7 @@ used in a link function. For an example of regexes'
subgroups, see
"Return a plist for a link."
`(face ,(or face '(shr-text shr-link))
mouse-face highlight
- shr-tabstop t
+ shr-tab-stop t
shr-url ,link
button t
type ,type
