1
0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-18 20:10:47 +00:00

Return to current position after occur ending with quit.

This commit is contained in:
Andrey Kotlarski 2013-05-07 15:43:52 +03:00
parent c827c3e186
commit 4589c25d96

View File

@ -619,9 +619,9 @@ Prematurely ending indexing will still show what's found so far."
(pos (point)))
(vlfi-beginning-of-file)
(goto-char (point-min))
(vlfi-build-occur regexp)
(vlfi-move-to-chunk start-pos end-pos)
(goto-char pos)))
(unwind-protect (vlfi-build-occur regexp)
(vlfi-move-to-chunk start-pos end-pos)
(goto-char pos))))
(defun vlfi-build-occur (regexp)
"Build occur style index for REGEXP."