From 4e799034492ca28d65385afc94a35461fe25b426 Mon Sep 17 00:00:00 2001 From: Mark Walters Date: Fri, 12 Jun 2015 09:15:32 +0100 Subject: [PATCH] emacs search: stash query Add keybinding c q to stash the current query in search mode. --- emacs/notmuch.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/emacs/notmuch.el b/emacs/notmuch.el index f03c2f90..6564816f 100644 --- a/emacs/notmuch.el +++ b/emacs/notmuch.el @@ -181,6 +181,7 @@ there will be called at other points of notmuch execution." (defvar notmuch-search-stash-map (let ((map (make-sparse-keymap))) (define-key map "i" 'notmuch-search-stash-thread-id) + (define-key map "q" 'notmuch-stash-query) (define-key map "?" 'notmuch-subkeymap-help) map) "Submap for stash commands") @@ -191,6 +192,11 @@ there will be called at other points of notmuch execution." (interactive) (notmuch-common-do-stash (notmuch-search-find-thread-id))) +(defun notmuch-stash-query () + "Copy current query to kill-ring." + (interactive) + (notmuch-common-do-stash (notmuch-search-get-query))) + (defvar notmuch-search-query-string) (defvar notmuch-search-target-thread) (defvar notmuch-search-target-line)