From c0708e9338de45415c0b70019cf45ee9a5bad230 Mon Sep 17 00:00:00 2001
From: Holger Dürer <me@hdurer.net>
Date: Tue, 16 May 2017 21:44:10 +0100
Subject: Replace uses of replace-regexp with search-forward and replace-match.

---
 lisp/mastodon-toot.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisp/mastodon-toot.el')

diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el
index ffe6454..296f95f 100644
--- a/lisp/mastodon-toot.el
+++ b/lisp/mastodon-toot.el
@@ -56,7 +56,10 @@ Remove MARKER if RM is non-nil."
   (let ((inhibit-read-only t)
         (bol (progn (move-beginning-of-line nil) (point)))
         (eol (progn (move-end-of-line nil) (point))))
-    (when rm (replace-regexp (format "(%s) " marker) "" nil bol eol))
+    (when rm
+      (goto-char bol)
+      (if (search-forward (format "(%s) " marker) eol t)
+          (replace-match "")))
     (move-beginning-of-line nil)
     (mastodon-tl--goto-next-toot)
     (unless rm
-- 
cgit v1.2.3