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: notmuch-search: add no-display functionality

Browse source 
If no-display is non-nil when calling notmuch-search then do not force
the search buffer to be displayed.

Signed-off-by: Ioan-Adrian Ratiu <adi@adirat.com>
This commit is contained in:
Ioan-Adrian Ratiu 2016-10-15 08:32:42 +01:00 committed by David Bremner
parent a9ab5e42af
commit e37a64da7a
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
emacs/notmuch.el
View file

@ -926,7 +926,7 @@ PROMPT is the string to prompt with."
;;;###autoload ;;;###autoload
(put 'notmuch-search 'notmuch-doc "Search for messages.") (put 'notmuch-search 'notmuch-doc "Search for messages.")
(defun notmuch-search (&optional query oldest-first target-thread target-line) (defun notmuch-search (&optional query oldest-first target-thread target-line no-display)
"Display threads matching QUERY in a notmuch-search buffer. "Display threads matching QUERY in a notmuch-search buffer.
If QUERY is nil, it is read interactively from the minibuffer. If QUERY is nil, it is read interactively from the minibuffer.
@ -937,6 +937,9 @@ Other optional parameters are used as follows:
current if it appears in the search results. current if it appears in the search results.
TARGET-LINE: The line number to move to if the target thread does not TARGET-LINE: The line number to move to if the target thread does not
appear in the search results. appear in the search results.
NO-DISPLAY: Do not try to foreground the search results buffer. If it is
already foregrounded i.e. displayed in a window, this has no
effect, meaning the buffer will remain visible.
When called interactively, this will prompt for a query and use When called interactively, this will prompt for a query and use
the configured default sort order." the configured default sort order."
@ -950,7 +953,9 @@ the configured default sort order."
(let* ((query (or query (notmuch-read-query "Notmuch search: "))) (let* ((query (or query (notmuch-read-query "Notmuch search: ")))
(buffer (get-buffer-create (notmuch-search-buffer-title query)))) (buffer (get-buffer-create (notmuch-search-buffer-title query))))
(switch-to-buffer buffer) (if no-display
(set-buffer buffer)
(switch-to-buffer buffer))
(notmuch-search-mode) (notmuch-search-mode)
;; Don't track undo information for this buffer ;; Don't track undo information for this buffer
(set 'buffer-undo-list t) (set 'buffer-undo-list t)