branch: elpa/fedi
commit c23d4b81a789126d007d120fb633346f09659587
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
post--concat-fields: use prop, not a hack of "post-" + name
---
fedi-post.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/fedi-post.el b/fedi-post.el
index 35df2fdc54c..6127de9b43f 100644
--- a/fedi-post.el
+++ b/fedi-post.el
@@ -403,13 +403,14 @@ descriptions."
nil))))
(defun fedi-post--concat-fields (fields)
- "Concat FIELDS for compose buffer docs."
+ "Concat FIELDS for compose buffer docs.
+The property added here is used by `fedi-post--update-status-fields'
+to update status fields."
(cl-loop for item in fields
- for field = (alist-get 'name item)
- concat (propertize (capitalize field)
- (intern
- (concat "post-" (downcase field)))
- t)))
+ for name = (alist-get 'name item)
+ for prop = (alist-get 'prop item)
+ concat (propertize (capitalize name)
+ prop t)))
(defun fedi-post--display-docs-and-status-fields (&optional mode prefix
fields type)
