Re: Nested grep

[address@hidden]

spamfilteraccount@gmail.com írta:
> Markus Triska írta:
> > "spamfilteraccount@gmail.com" <spamfilteraccount@gmail.com> writes:
> >
> > > Will I also be able to use next-error on the results of the first grep
> > > from the match I left off after I'm done with the second grep?
> >
> > Yes.
>
> It really does work. Awesome! :)
>

I quickly made some convenience bindings for the grep buffer to support
this. Hey, Drew! Don't you want to add something like this to
grep-plus? It would be a good fit.


(require 'compile)
(require 'cl)

(defvar my-grep-stack nil)

(define-key compilation-minor-mode-map "s" 'my-grep-stack-buffer-push)
(define-key compilation-minor-mode-map "q" 'my-grep-stack-buffer-pop)

(defun my-grep-stack-buffer-push ()
  (interactive)
  (push (current-buffer) my-grep-stack)
  (rename-uniquely)
  (message "Grep buffer pushed to stack."))


(defun my-grep-stack-buffer-pop ()
  (interactive)
  (quit-window)
  (if my-grep-stack
      (let ((buffer (pop my-grep-stack)))
        (switch-to-buffer buffer)
        (message "Grep buffer popped from stack."))))