diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-05 10:35:47 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-05 10:35:47 +0200 |
| commit | 49750e1081201293ad55598a503a0c137cc060bd (patch) | |
| tree | f7bb8ee7b0f571ed7794395b304bd928bc7808b1 | |
| parent | ff51dc2fb2b66553825c0e5710373eb8db17319c (diff) | |
revert while-let to when-let
| -rw-r--r-- | lisp/mastodon-toot.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index be2d0a3..1138888 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -38,7 +38,6 @@ (defvar emojify-emojis-dir) (defvar emojify-user-emojis) -(require 'compat) (require 'cl-lib) (require 'persist) (require 'mastodon-iso) @@ -1684,7 +1683,9 @@ Added to `after-change-functions'." (save-match-data (let* ((fill-column 67)) (goto-char (point-min)) - (while-let ((prop (text-property-search-forward 'toot-reply))) + ;; while-let shoulndn't be needed here, as we really should only have + ;; one. if we have more, the bug is elsewhere. + (when-let ((prop (text-property-search-forward 'toot-reply))) (fill-region (prop-match-beginning prop) (point))))))) |