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

[Mattias Engdegård]

branch: master
commit b8e3b0f157db29aa7cf42783f12f87815547efb6
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    ; * lisp/replace.el (occur-1): Remove old fringe arrow.
---
 lisp/replace.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/replace.el b/lisp/replace.el
index 54d652b..ee46286 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))