From eb8638ba2e6cbb25bab2e16cdfb8568e1af617cb Mon Sep 17 00:00:00 2001 From: Dmitry Kurochkin Date: Wed, 21 Dec 2011 22:18:25 +0400 Subject: [PATCH] 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. --- test/test-lib.el | 21 +++++++++++++-------- 1 file 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) -- 2.43.0