From: Mark Walters <markwalters1009@gmail.com>
Date: Fri, 12 Jun 2015 08:15:32 +0000 (+0100)
Subject: emacs search: stash query
X-Git-Tag: 0.21_rc0~93
X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=4e799034492ca28d65385afc94a35461fe25b426

emacs search: stash query

Add keybinding c q to stash the current query in search mode.
---

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)