sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2024-10-05 18:30:51 +01:00
Code Issues Releases Wiki Activity

In case original VLF buffer has been killed, try to find existing VLF

Browse Source 
buffer for the same file when visiting occur results.
This commit is contained in:
Andrey Kotlarski 2013-12-03 02:04:27 +02:00
parent cb47e19128
commit 2dba838015
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
vlf.el
View File

@ -696,7 +696,13 @@ EVENT may hold details of the invocation."
pos-relative)))
(or (buffer-live-p buffer)
(let ((occur-buffer (current-buffer)))
(setq buffer (vlf file))
(or (catch 'found
(dolist (buf (buffer-list))
(set-buffer buf)
(and vlf-mode (equal file buffer-file-name)
(setq buffer buf)
(throw 'found t))))
(setq buffer (vlf file)))
(switch-to-buffer occur-buffer)))
(pop-to-buffer buffer)
(vlf-move-to-chunk chunk-start chunk-end)
@ -708,7 +714,7 @@ Prematurely ending indexing will still show what's found so far."
(interactive (list (read-regexp "List lines matching regexp"
(if regexp-history
(car regexp-history)))))
(if (buffer-modified-p) ;use temporary buffer not to interfere with modifications
(if (buffer-modified-p) ;use temporary buffer not to interfere with modifications
(let ((vlf-buffer (current-buffer))
(file buffer-file-name)
(batch-size vlf-batch-size))