Add helper function for debug messages

3 years ago · 05f849139e
parent 6e63df3657
commit 05f849139e
1 changed files with 6 additions and 0 deletions
--- a/global.org
+++ b/global.org
@ -136,6 +136,12 @@
       (setq-local save-timer (run-with-idle-timer secs nil
                                                   #'save--buffer-buf (current-buffer))))
   #+end_src
+   Message-and-wait
+   #+begin_src emacs-lisp
+     (defun debug-message (s)
+       (message s)
+       (sleep-for 0 75))
+   #+end_src
 ** Cosmetics
   Prefer a minimal appearance: no menu, toolbar or scroll-bars; no
   splash screens or messages