emacs: make the refresh functions more consistent

The different refreshed functions were called differently: some were
called interactively and some were not. Make them all interactive.
This commit is contained in:
Mark Walters 2016-10-15 08:32:40 +01:00 committed by David Bremner
parent cd7e497d07
commit 5e83fe979d
3 changed files with 4 additions and 4 deletions

View file

@ -607,6 +607,7 @@ with `notmuch-hello-query-counts'."
(defun notmuch-hello-update (&optional no-display) (defun notmuch-hello-update (&optional no-display)
"Update the current notmuch view." "Update the current notmuch view."
;; Lazy - rebuild everything. ;; Lazy - rebuild everything.
(interactive)
(notmuch-hello no-display)) (notmuch-hello no-display))
(defun notmuch-hello-window-configuration-change () (defun notmuch-hello-window-configuration-change ()

View file

@ -417,10 +417,8 @@ of its command symbol."
"Refresh the current buffer." "Refresh the current buffer."
(interactive) (interactive)
(when notmuch-buffer-refresh-function (when notmuch-buffer-refresh-function
(if (commandp notmuch-buffer-refresh-function)
;; Pass prefix argument, etc. ;; Pass prefix argument, etc.
(call-interactively notmuch-buffer-refresh-function) (call-interactively notmuch-buffer-refresh-function)))
(funcall notmuch-buffer-refresh-function))))
(defun notmuch-poll-and-refresh-this-buffer () (defun notmuch-poll-and-refresh-this-buffer ()
"Invoke `notmuch-poll' to import mail, then refresh the current buffer." "Invoke `notmuch-poll' to import mail, then refresh the current buffer."

View file

@ -991,6 +991,7 @@ query string as the current search. If the current thread is in
the new search results, then point will be placed on the same the new search results, then point will be placed on the same
thread. Otherwise, point will be moved to attempt to be in the thread. Otherwise, point will be moved to attempt to be in the
same relative position within the new buffer." same relative position within the new buffer."
(interactive)
(let ((target-line (line-number-at-pos)) (let ((target-line (line-number-at-pos))
(oldest-first notmuch-search-oldest-first) (oldest-first notmuch-search-oldest-first)
(target-thread (notmuch-search-find-thread-id 'bare)) (target-thread (notmuch-search-find-thread-id 'bare))