debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

test: add general Emacs hook counter

Browse source 
Replace `notmuch-hello-mode-hook-counter' with general `hook-counter'
and `add-hook-counter' functions to allow counting calls for any hook.
This commit is contained in:
Dmitry Kurochkin 2011-12-21 22:18:25 +04:00 committed by David Bremner
parent 7edf9e2765
commit eb8638ba2e
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
test/test-lib.el
View file

@ -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)