[PATCH v3 4/4] emacs: add notmuch-hello-hook
Thomas Jost
schnouki at schnouki.net
Tue Dec 13 09:32:12 PST 2011
This hook is called every time the notmuch-hello buffer is updated.
---
emacs/notmuch-hello.el | 9 ++++++++-
1 files changed, 8 insertions(+), 1 deletions(-)
diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 0fe9c1d..112b40b 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -131,6 +131,11 @@ So:
(integer :tag "Number of characters")
(float :tag "Fraction of window")))
+(defcustom notmuch-hello-hook nil
+ "Functions called after populating a `notmuch-hello' buffer."
+ :type 'hook
+ :group 'notmuch)
+
(defcustom notmuch-thousands-separator ","
"The string used as a thousands separator.
@@ -579,7 +584,9 @@ Complete list of currently available key bindings:
(widget-forward 1)))
(unless (widget-at)
- (notmuch-hello-goto-search)))))
+ (notmuch-hello-goto-search))
+
+ (run-hooks 'notmuch-hello-hook))))
(defun notmuch-folder ()
"Deprecated function for invoking notmuch---calling `notmuch' is preferred now."
--
1.7.8
More information about the notmuch
mailing list