From: Mark Wooding <mdw@distorted.org.uk>
Date: Fri, 15 Sep 2017 08:54:43 +0000 (+0100)
Subject: skelrc: Add a debugging utility.
X-Git-Tag: 1.3.0~6
X-Git-Url: https://git.distorted.org.uk/~mdw/skel/commitdiff_plain/da3134ee428238075d12295d6f184694e9cca36c

skelrc: Add a debugging utility.
---

diff --git a/skelrc b/skelrc
index 045075b..ef8c93b 100644
--- a/skelrc
+++ b/skelrc
@@ -1,5 +1,13 @@
 ;;; -*-emacs-lisp-*-
 
+(defun skelrc-dribble (msg &rest args)
+  "Write MSG (a `format'-style string, with ARGS) to the debug buffer."
+  (let ((buffer (get-buffer "*skel-debug*")))
+    (and buffer
+	 (with-current-buffer buffer
+	   (goto-char (point-max))
+	   (insert (apply #'format msg args) "\n")))))
+
 (defun skelrc-strip-trailing-whitespace (string)
   "Return STRING, but with trailing whitespace removed.