From 9249cda2fffca34223d6d6c485878c3a1b32766d Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 15 Mar 2024 11:23:24 +0100 Subject: let bind a setq'd var to keep compiler happy --- lisp/mastodon-notifications.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp/mastodon-notifications.el') diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index f7276d6..0e367c9 100644 --- a/lisp/mastodon-notifications.el +++ b/lisp/mastodon-notifications.el @@ -177,10 +177,11 @@ Status notifications are given when (switch-to-buffer (current-buffer)) (insert str) (goto-char (point-min)) - (while (setq prop (text-property-search-forward 'face 'shr-text t)) - (add-text-properties (prop-match-beginning prop) - (prop-match-end prop) - '(face (font-lock-comment-face shr-text)))) + (let (prop) + (while (setq prop (text-property-search-forward 'face 'shr-text t)) + (add-text-properties (prop-match-beginning prop) + (prop-match-end prop) + '(face (font-lock-comment-face shr-text))))) (buffer-string))) (defun mastodon-notifications--format-note (note type) -- cgit v1.2.3