From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 25 Jul 2021 13:55:50 +0000 (+0200)
Subject: Add back occur-mode-find-occurrence for compatibility (bug#39121)
X-Git-Tag: emacs-28.0.90~1697
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=697341d7fd80091a4243a813e2aecc07fd49b10c;p=emacs.git

Add back occur-mode-find-occurrence for compatibility (bug#39121)

* lisp/replace.el (occur-mode-find-occurrence):
Put back (an emulation of) the previously removed function.
It is used internally in eshell and in some external code.

Problem found by Basil Contovounesios.
---

diff --git a/lisp/replace.el b/lisp/replace.el
index 09bdf28dbce..f8c5fed5578 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1426,6 +1426,11 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]."
   "Handle `revert-buffer' for Occur mode buffers."
   (apply #'occur-1 (append occur-revert-arguments (list (buffer-name)))))
 
+;; Retained for compatibility.
+(defun occur-mode-find-occurrence ()
+  "Return a marker to the first match of the line at point."
+  (occur--targets-start (occur-mode--find-occurrences)))
+
 (defun occur-mode--find-occurrences ()
   ;; The `occur-target' property value is a list of (BEG . END) for each
   ;; match on the line, or (for compatibility) a single marker to the start