procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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.
This commit is contained in:
Mattias Engdegård 2021-07-25 15:55:50 +02:00
parent 41a55a330f
commit 697341d7fd
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/replace.el
View file

@ -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