sascha/vlfi
1
0
Fork 0
mirror of https://github.com/m00natic/vlfi.git synced 2025-01-31 02:00:47 +00:00
Code Issues Releases Wiki Activity

Add vlfi-occur-show command for showing match but still staying in

Browse Source 
occur buffer.
This commit is contained in:
Andrey Kotlarski 2013-04-17 11:53:49 +03:00
parent 54927afb8f
commit 70719b0917
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vlfi.el
View File

@ -528,6 +528,7 @@ Search is performed chunk by chunk in `vlfi-batch-size' memory."
(define-key map "p" 'vlfi-occur-prev-match) (define-key map "p" 'vlfi-occur-prev-match)
(define-key map "\C-m" 'vlfi-occur-visit) (define-key map "\C-m" 'vlfi-occur-visit)
(define-key map [mouse-1] 'vlfi-occur-visit) (define-key map [mouse-1] 'vlfi-occur-visit)
(define-key map "o" 'vlfi-occur-show)
map) map)
"Keymap for command `vlfi-occur-mode'.") "Keymap for command `vlfi-occur-mode'.")
@ -552,6 +553,19 @@ Search is performed chunk by chunk in `vlfi-batch-size' memory."
(goto-char (or (previous-single-property-change (point) 'face) (goto-char (or (previous-single-property-change (point) 'face)
(point-max))))) (point-max)))))
(defun vlfi-occur-show (&optional event)
"Visit current `vlfi-occur' link in a vlfi buffer but stay in the \
occur buffer. If original VLFI buffer has been killed,
open new VLFI session each time.
EVENT may hold details of the invocation."
(interactive (list last-nonmenu-event))
(let ((occur-buffer (if event
(window-buffer (posn-window
(event-end event)))
(current-buffer))))
(vlfi-occur-visit event)
(pop-to-buffer occur-buffer)))
(defun vlfi-occur-visit (&optional event) (defun vlfi-occur-visit (&optional event)
"Visit current `vlfi-occur' link in a vlfi buffer. "Visit current `vlfi-occur' link in a vlfi buffer.
The same for mouse EVENT." The same for mouse EVENT."