diff options
author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2011-12-18 04:21:18 +0400 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2011-12-20 07:41:51 -0400 |
commit | 33735c28a42d8b4a5432507430aa0000bc9d4ada (patch) | |
tree | 1887aff42ca44acee0fc0956c67784ab3833cde7 /test | |
parent | a2d0215a58ea20f904e2b5dc3e8d5623c82ed6f3 (diff) |
test: add `notmuch-hello-mode-hook-counter'
Add `notmuch-hello-mode-hook-counter' hook to count how many times
`notmuch-hello-mode-hook' was called. The counter function increments
`notmuch-hello-mode-hook-counter' variable value if it is bount,
otherwise it does nothing.
Diffstat (limited to 'test')
-rw-r--r-- | test/test-lib.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/test-lib.el b/test/test-lib.el index 97ae5938..3bca1382 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -61,3 +61,12 @@ running, quit if it terminated." (if (not (process-attributes pid)) (kill-emacs) (run-at-time "1 min" nil 'orphan-watchdog pid))) + +(defun notmuch-hello-mode-hook-counter () + "Count how many times `notmuch-hello-mode-hook' is called. +Increments `notmuch-hello-mode-hook-counter' variable value if it +is bound, otherwise does nothing." + (if (boundp 'notmuch-hello-mode-hook-counter) + (setq notmuch-hello-mode-hook-counter + (1+ notmuch-hello-mode-hook-counter)))) +(add-hook 'notmuch-hello-mode-hook 'notmuch-hello-mode-hook-counter) |