From b8e3b0f157db29aa7cf42783f12f87815547efb6 Mon Sep 17 00:00:00 2001
From: Mattias Engdegård <mattiase@acm.org>
Date: Sat, 7 Aug 2021 11:11:52 +0200
Subject: ; * lisp/replace.el (occur-1): Remove old fringe arrow.
---
lisp/replace.el | 1 +
1 file changed, 1 insertion(+)
(limited to 'lisp/replace.el')
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))
--
cgit v1.2.3