diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index 00b2ceee356..04e5d4273e0 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1226,14 +1226,14 @@ the user called `occur'." | |||
| 1226 | (pcase-let ((`(,region-start ,region-end ,orig-line ,buffer) | 1226 | (pcase-let ((`(,region-start ,region-end ,orig-line ,buffer) |
| 1227 | (occur--parse-occur-buffer)) | 1227 | (occur--parse-occur-buffer)) |
| 1228 | (regexp (car occur-revert-arguments))) | 1228 | (regexp (car occur-revert-arguments))) |
| 1229 | (with-current-buffer buffer | 1229 | (if (not (or region-start region-end)) |
| 1230 | (when (wholenump orig-line) | 1230 | (apply 'occur-1 (append occur-revert-arguments (list (buffer-name)))) |
| 1231 | (goto-char (point-min)) | 1231 | (with-current-buffer buffer |
| 1232 | (forward-line (1- orig-line))) | 1232 | (when (wholenump orig-line) |
| 1233 | (save-excursion | 1233 | (goto-char (point-min)) |
| 1234 | (if (or region-start region-end) | 1234 | (forward-line (1- orig-line))) |
| 1235 | (occur regexp nil (list (cons region-start region-end))) | 1235 | (save-excursion |
| 1236 | (apply 'occur-1 (append occur-revert-arguments (list (buffer-name)))))))))) | 1236 | (occur regexp nil (list (cons region-start region-end))))))))) |
| 1237 | 1237 | ||
| 1238 | (defun occur-mode-find-occurrence () | 1238 | (defun occur-mode-find-occurrence () |
| 1239 | (let ((pos (get-text-property (point) 'occur-target))) | 1239 | (let ((pos (get-text-property (point) 'occur-target))) |