From 0be3f27b8e97b4e765fc67dfc4b6c0a107d685bd Mon Sep 17 00:00:00 2001 From: mousebot Date: Sat, 2 Oct 2021 13:16:54 +0200 Subject: restore var toot--media-attachments --- lisp/mastodon-toot.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 17b3a6c..dfe9ead 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -87,6 +87,10 @@ Must be one of \"public\", \"unlisted\", \"private\" (for followers-only), or \" Valid values are \"direct\", \"private\" (followers-only), \"unlisted\", and \"public\".") (make-variable-buffer-local 'mastodon-toot--visibility) +(defvar mastodon-toot--media-attachments nil + "A flag indicating if the toot being composed has media attachments.") +(make-variable-buffer-local 'mastodon-toot--media-attachments) + (defvar mastodon-toot--media-attachment-ids nil "A list of any media attachment ids of the toot being composed.") (make-variable-buffer-local 'mastodon-toot--media-attachment-ids) @@ -469,9 +473,9 @@ e.g. mastodon-toot--send -> Send." (mastodon-toot--format-kbinds kbinds)))) (defun mastodon-toot--display-docs-and-status-fields () - "Insert propertized text with documentation about mastodon-toot mode and the -status fields which will get updated based on the status of NSFW, content -warning flags etc." + "Insert propertized text with documentation about `mastodon-toot-mode'. +Also includes and the status fields which will get updated based +on the status of NSFW, content warning flags, media attachments, etc." (let ((divider "|=================================================================|")) (insert -- cgit v1.2.3