Cache the last ag search buffer name

[kaushalmodi]

Can you please add this so that I can have a function like below in my config:

Using ag/last-search-buffer-name ensures that I kill only the last ag search buffer and not one of the prior open ones (if any).

    (defun ag/jump-to-result-if-only-one-match ()
      "Jump to the first ag result if that ag search came up with just one match."
      (let (only-one-match)
        (when (member "--stats" ag-arguments)
          (with-current-buffer ag/last-search-buffer-name
            (save-excursion
              (goto-char (point-min))
              (setq only-one-match (re-search-forward "^1 matches\\s-*$" nil :noerror))))
          (when only-one-match
            (next-error)
            (kill-buffer ag/last-search-buffer-name)))))
    (add-hook 'ag-search-finished-hook #'ag/jump-to-result-if-only-one-match)

[Wilfred]

This shouldn't be necessary. ag-search-finished-hook is executed in the context of the results buffer, so you should just be able to use (current-buffer). Does that meet your need?

[kaushalmodi]

You're correct. Operations happen in the current ag buffer. Thanks.

kaushalmodi/.emacs.d@be25ade