From 697341d7fd80091a4243a813e2aecc07fd49b10c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 25 Jul 2021 15:55:50 +0200 Subject: [PATCH] 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. --- lisp/replace.el | 5 +++++ 1 file changed, 5 insertions(+) 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 -- 2.39.2