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

notmuch.el: Switch from start-process to call-process

Browse source 
We now get the point staying right at the top where we want it.
We also don't get any extraneous noise about "Process notmuch
completed" or anything like that. Just the output in a read-only
buffer.
This commit is contained in:
Carl Worth 2009-10-31 00:44:39 -07:00
parent eb1a5b441b
commit 095a5ac382
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
notmuch.el
View file

@ -43,7 +43,20 @@
(defun notmuch-search (query)
"Run \"notmuch search\" with the given query string and display results."
(interactive "sNotmuch search: ")
(start-process "notmuch-search" (concat "*notmuch-search-" query) "notmuch" "search" query))
(let ((buffer (get-buffer-create (concat "*notmuch-search-" query))))
(switch-to-buffer buffer)
(setq buffer-read-only t)
(let ((proc (get-buffer-process (current-buffer)))
(inhibit-read-only t))
(if proc
(error "notmuch search process already running for query `%s'" query)
)
(erase-buffer)
(beginning-of-buffer)
(save-excursion
(call-process "notmuch" nil t nil "search" query)
)
)))
(defun notmuch ()
"Run notmuch to display all mail with tag of 'inbox'"