From da3134ee428238075d12295d6f184694e9cca36c Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Fri, 15 Sep 2017 09:54:43 +0100 Subject: [PATCH] skelrc: Add a debugging utility. --- skelrc | 8 ++++++++ 1 file changed, 8 insertions(+) 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. -- 2.11.0