aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus@riseup.net>2024-03-15 11:23:24 +0100
committermarty hiatt <martianhiatus@riseup.net>2024-03-15 11:23:24 +0100
commit9249cda2fffca34223d6d6c485878c3a1b32766d (patch)
tree6c5db9d0c5735e93f804b90720cd911e0712590c
parenta55db10550fbf4163f380648616e63a574dea838 (diff)
let bind a setq'd var to keep compiler happy
-rw-r--r--lisp/mastodon-notifications.el9
1 files changed, 5 insertions, 4 deletions
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)