diff options
| -rw-r--r-- | lisp/replace.el | 5 |
1 files changed, 5 insertions, 0 deletions
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]." | |||
| 1426 | "Handle `revert-buffer' for Occur mode buffers." | 1426 | "Handle `revert-buffer' for Occur mode buffers." |
| 1427 | (apply #'occur-1 (append occur-revert-arguments (list (buffer-name))))) | 1427 | (apply #'occur-1 (append occur-revert-arguments (list (buffer-name))))) |
| 1428 | 1428 | ||
| 1429 | ;; Retained for compatibility. | ||
| 1430 | (defun occur-mode-find-occurrence () | ||
| 1431 | "Return a marker to the first match of the line at point." | ||
| 1432 | (occur--targets-start (occur-mode--find-occurrences))) | ||
| 1433 | |||
| 1429 | (defun occur-mode--find-occurrences () | 1434 | (defun occur-mode--find-occurrences () |
| 1430 | ;; The `occur-target' property value is a list of (BEG . END) for each | 1435 | ;; The `occur-target' property value is a list of (BEG . END) for each |
| 1431 | ;; match on the line, or (for compatibility) a single marker to the start | 1436 | ;; match on the line, or (for compatibility) a single marker to the start |