diff options
author | Dmitry Kurochkin <dmitry.kurochkin@gmail.com> | 2011-12-21 22:18:25 +0400 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2011-12-22 06:57:32 -0400 |
commit | eb8638ba2e6cbb25bab2e16cdfb8568e1af617cb (patch) | |
tree | 8ca64ec1190a168eb93491ee79091f4253c7624d /test/test-lib.el | |
parent | 7edf9e2765d2795ca85dd2c239af20a7493e2085 (diff) |
test: add general Emacs hook counter
Replace `notmuch-hello-mode-hook-counter' with general `hook-counter'
and `add-hook-counter' functions to allow counting calls for any hook.
Diffstat (limited to 'test/test-lib.el')
-rw-r--r-- | test/test-lib.el | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/test/test-lib.el b/test/test-lib.el index 3bca1382..83b8a651 100644 --- a/test/test-lib.el +++ b/test/test-lib.el @@ -62,11 +62,16 @@ running, quit if it terminated." (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) +(defun hook-counter (hook) + "Count how many times a hook is called. Increments +`hook'-counter variable value if it is bound, otherwise does +nothing." + (let ((counter (intern (concat (symbol-name hook) "-counter")))) + (if (boundp counter) + (set counter (1+ (symbol-value counter)))))) + +(defun add-hook-counter (hook) + "Add hook to count how many times `hook' is called." + (add-hook hook (apply-partially 'hook-counter hook))) + +(add-hook-counter 'notmuch-hello-mode-hook) |