From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 1 Aug 2021 13:25:02 +0000 (+0200)
Subject: ; * lisp/replace.el (occur--set-arrow): Remove unused variable.
X-Git-Tag: emacs-28.0.90~1610
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0ecebbf2746e41f4a3c3e27c18d96e74f6f3b030;p=emacs.git

; * lisp/replace.el (occur--set-arrow): Remove unused variable.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 462cc26e993..54d652b2ed8 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1446,8 +1446,7 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]."
 (defun occur--set-arrow ()
   "Set the overlay arrow at the first line of the occur match at point."
   (save-excursion
-    (let ((start (point))
-          (target (get-text-property (point) 'occur-target))
+    (let ((target (get-text-property (point) 'occur-target))
           ;; Find the start of the occur match, in case it's multi-line.
           (prev (previous-single-property-change (point) 'occur-target)))
       (when (and prev (eq (get-text-property prev 'occur-target) target))