Add helper function for debug messages

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