From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 7 Aug 2021 09:11:52 +0000 (+0200)
Subject: ; * lisp/replace.el (occur-1): Remove old fringe arrow.
X-Git-Tag: emacs-28.0.90~1591^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b8e3b0f157db29aa7cf42783f12f87815547efb6;p=emacs.git

; * lisp/replace.el (occur-1): Remove old fringe arrow.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 54d652b2ed8..ee46286a75f 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1898,6 +1898,7 @@ See also `multi-occur'."
       ;; Make the default-directory of the *Occur* buffer match that of
       ;; the buffer where the occurrences come from
       (setq default-directory source-buffer-default-directory)
+      (setq overlay-arrow-position nil)
       (if (stringp nlines)
 	  (fundamental-mode) ;; This is for collect operation.
 	(occur-mode))