From 49750e1081201293ad55598a503a0c137cc060bd Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 5 May 2023 10:35:47 +0200 Subject: revert while-let to when-let --- lisp/mastodon-toot.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/mastodon-toot.el') 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))))))) -- cgit v1.2.3