X-Git-Url: https://git.distorted.org.uk/~mdw/skel/blobdiff_plain/bd7f6df89461d094dcbf301107689acc40a1b34c..da3134ee428238075d12295d6f184694e9cca36c:/skelrc

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.