diff options
author | Eli Zaretskii <eliz@gnu.org> | 2018-10-09 17:55:15 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2018-10-09 17:55:15 +0300 |
commit | 262f5c809913a232a931131d040964cbdf4ac6f9 (patch) | |
tree | 04ecc00b995f16177d4e6cc8e6c869a726095291 /lisp/replace.el | |
parent | cbb674287878877abe38065d0cc5fa28b7fc577d (diff) | |
download | emacs-262f5c809913a232a931131d040964cbdf4ac6f9.tar.gz |
Revert part of last commit
* lisp/replace.el (occur-revert-function): Revert last change,
as it's no longer needed. (Bug#32987)
Diffstat (limited to 'lisp/replace.el')
-rw-r--r-- | lisp/replace.el | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 7d313842c04..a134e4e3e58 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1207,19 +1207,7 @@ To return to ordinary Occur mode, use \\[occur-cease-edit]." (defun occur-revert-function (_ignore1 _ignore2) "Handle `revert-buffer' for Occur mode buffers." - (if (cdr (nth 2 occur-revert-arguments)) ; multi-occur - (apply 'occur-1 (append occur-revert-arguments (list (buffer-name)))) - (pcase-let ((`(,region-start ,region-end ,orig-line ,buffer) - (occur--parse-occur-buffer)) - (regexp (car occur-revert-arguments))) - (if (not (or region-start region-end)) - (apply 'occur-1 (append occur-revert-arguments (list (buffer-name)))) - (with-current-buffer buffer - (when (wholenump orig-line) - (goto-char (point-min)) - (forward-line (1- orig-line))) - (save-excursion - (occur regexp nil (list (cons region-start region-end))))))))) + (apply #'occur-1 (append occur-revert-arguments (list (buffer-name))))) (defun occur-mode-find-occurrence () (let ((pos (get-text-property (point) 'occur-target))) |