[PATCH] run notmuch-hello-mode-hook at the end of the hello mode setup

[PATCH] run notmuch-hello-mode-hook at the end of the hello mode setup

[Antoine Beaupré]

i mostly use this to start offlineimap.el, but it could be used for
other purposes. i have not added hooks to other modes, but those could
be interesting as well. i am unsure as to how to make unit tests for
this.
---
 emacs/notmuch-hello.el |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
index 65fde75..6389ac8 100644
--- a/emacs/notmuch-hello.el
+++ b/emacs/notmuch-hello.el
@@ -118,6 +118,11 @@ Typically \",\" in the US and UK and \".\" in Europe."
   :group 'notmuch
   :type 'string)
 
+(defcustom notmuch-hello-mode-hook nil
+  "Hook run at the end of `notmuch-hello-mode'."
+  :group 'notmuch
+  :type 'hook)
+
 (defvar notmuch-hello-url "http://notmuchmail.org"
   "The `notmuch' web site.")
 
@@ -336,6 +341,7 @@ Complete list of currently available key bindings:
  (setq major-mode 'notmuch-hello-mode
        mode-name "notmuch-hello")
  ;;(setq buffer-read-only t)
+ (run-mode-hooks 'notmuch-hello-mode 'notmuch-hello-mode-hook)
 )
 
 (defun notmuch-hello-generate-tag-alist ()
-- 
1.7.2.5

Re: [PATCH] run notmuch-hello-mode-hook at the end of the hello mode setup

[Jani Nikula]

Hi, looks like a similar patch has been applied as commit
db352df09e92171293eacf159342cd950ae596d0.

BR,
Jani.


On Mon,  8 Aug 2011 12:26:58 +0200, Antoine Beaupré <anarcat@koumbit.org> wrote:
> i mostly use this to start offlineimap.el, but it could be used for
> other purposes. i have not added hooks to other modes, but those could
> be interesting as well. i am unsure as to how to make unit tests for
> this.
> ---
>  emacs/notmuch-hello.el |    6 ++++++
>  1 files changed, 6 insertions(+), 0 deletions(-)
> 
> diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
> index 65fde75..6389ac8 100644
> --- a/emacs/notmuch-hello.el
> +++ b/emacs/notmuch-hello.el
> @@ -118,6 +118,11 @@ Typically \",\" in the US and UK and \".\" in Europe."
>    :group 'notmuch
>    :type 'string)
>  
> +(defcustom notmuch-hello-mode-hook nil
> +  "Hook run at the end of `notmuch-hello-mode'."
> +  :group 'notmuch
> +  :type 'hook)
> +
>  (defvar notmuch-hello-url "http://notmuchmail.org"
>    "The `notmuch' web site.")
>  
> @@ -336,6 +341,7 @@ Complete list of currently available key bindings:
>   (setq major-mode 'notmuch-hello-mode
>         mode-name "notmuch-hello")
>   ;;(setq buffer-read-only t)
> + (run-mode-hooks 'notmuch-hello-mode 'notmuch-hello-mode-hook)
>  )
>  
>  (defun notmuch-hello-generate-tag-alist ()
> -- 
> 1.7.2.5
> 
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch