summary history branches tags files
commit:aea35b19e35ca0d245ba3cb5a7c9095a732df57c
author:Trevor Bentley
committer:Trevor Bentley
date:Mon Dec 7 22:21:22 2020 +0100
parents:d64b5bbf202702d0a6bde05a1750c431307615e5
cleanup timer warning output
diff --git a/snitch-timer.el b/snitch-timer.el
line changes: +3/-3
index b311e76..346a5c7
--- a/snitch-timer.el
+++ b/snitch-timer.el
@@ -184,7 +184,7 @@ modification and returns the result."
     (if (>= (length snitch--timer-alist) snitch--max-timer-backtraces)
         (when snitch-print-timer-warnings
           (message "*snitch warning* too many timers, discarding: %s"
-                   (timer--function timer)))
+                   (snitch--fn-repr (timer--function timer))))
       (progn
         (setq snitch--timer-alist
               (cons (cons timer (cons bt timeout-fn)) snitch--timer-alist))
@@ -201,7 +201,7 @@ any that have timed out."
              (when match
                (when snitch-print-timer-warnings
                  (message "*snitch warning* timer timed out: %s"
-                          (timer--function timer)))
+                          (snitch--fn-repr (timer--function timer))))
                (setq snitch--timer-removed-count
                      (+ snitch--timer-removed-count 1))
                (setq snitch--timer-alist
@@ -218,7 +218,7 @@ present."
         (when (and (null match)
                    snitch-print-timer-warnings)
           (message "*snitch warning* remove unknown timer: %s"
-                   (timer--function timer))
+                   (snitch--fn-repr (timer--function timer)))
           (setq snitch--timer-missed-count
                 (+ snitch--timer-missed-count 1)))
         (when match