debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-21 18:38:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs search: stash query

Browse source 
Add keybinding c q to stash the current query in search mode.
This commit is contained in:
Mark Walters 2015-06-12 09:15:32 +01:00 committed by David Bremner
parent d038b93209
commit 4e79903449
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch.el
View file

@ -181,6 +181,7 @@ there will be called at other points of notmuch execution."
(defvar notmuch-search-stash-map (defvar notmuch-search-stash-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "i" 'notmuch-search-stash-thread-id) (define-key map "i" 'notmuch-search-stash-thread-id)
(define-key map "q" 'notmuch-stash-query)
(define-key map "?" 'notmuch-subkeymap-help) (define-key map "?" 'notmuch-subkeymap-help)
map) map)
"Submap for stash commands") "Submap for stash commands")
@ -191,6 +192,11 @@ there will be called at other points of notmuch execution."
(interactive) (interactive)
(notmuch-common-do-stash (notmuch-search-find-thread-id))) (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-query-string)
(defvar notmuch-search-target-thread) (defvar notmuch-search-target-thread)
(defvar notmuch-search-target-line) (defvar notmuch-search-target-line)