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

Revert part of last commit

Browse source 
* lisp/replace.el (occur-revert-function): Revert last change,
as it's no longer needed.  (Bug#32987)
This commit is contained in:
Eli Zaretskii 2018-10-09 17:55:15 +03:00
parent cbb6742878
commit 262f5c8099
1 changed files with 1 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/replace.el
View file

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