From f9452225da575a8272b2880214a241b72efd5e4f Mon Sep 17 00:00:00 2001 From: mousebot Date: Sat, 19 Jun 2021 12:37:07 +0200 Subject: hack to ensure toot buffer bindings are always enabled. make mastodon-toot-mode is run in mastodon-toot--compose-buffer before after-change-functions bugs. this makes mastodon-toot work properly even if mastodon-mode has not yet been run/loaded yet. --- lisp/mastodon-toot.el | 4 ++-- lisp/mastodon.el | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index a0f886c..d9f895c 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -516,9 +516,9 @@ If REPLY-TO-ID is provided, set the MASTODON-TOOT--REPLY-TO-ID var." (when (not buffer-exists) (mastodon-toot--display-docs-and-status-fields) (mastodon-toot--setup-as-reply reply-to-user reply-to-id)) + (mastodon-toot-mode t) (push #'mastodon-toot--update-status-fields after-change-functions) - (mastodon-toot--update-status-fields) - (mastodon-toot-mode t))) + (mastodon-toot--update-status-fields))) (define-minor-mode mastodon-toot-mode "Minor mode to capture Mastodon toots." diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 430362d..96a092f 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -30,7 +30,7 @@ ;; it is a labor of love. ;;; Code: -(require 'cl-lib) ; for `some' call in mastodon +(require 'cl-lib) ; for `cl-some' call in mastodon (declare-function discover-add-context-menu "discover") (declare-function emojify-mode "emojify") -- cgit v1.2.3