From 511d730f7b781eb52792a59e13db308970326055 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Fri, 31 Jul 2009 17:45:46 +0200 Subject: [PATCH] FUEL: additional debug level for, well, debugging purposes. --- misc/fuel/fuel-log.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/misc/fuel/fuel-log.el b/misc/fuel/fuel-log.el index fee762d09a..ab8b636a6a 100644 --- a/misc/fuel/fuel-log.el +++ b/misc/fuel/fuel-log.el @@ -1,6 +1,6 @@ ;;; fuel-log.el -- logging utilities -;; Copyright (C) 2008 Jose Antonio Ortega Ruiz +;; Copyright (C) 2008, 2009 Jose Antonio Ortega Ruiz ;; See http://factorcode.org/license.txt for BSD license. ;; Author: Jose Antonio Ortega Ruiz @@ -34,6 +34,9 @@ (defvar fuel-log--inhibit-p nil "Set this to t to inhibit all log messages") +(defvar fuel-log--debug-p nil + "If t, all messages are logged no matter what") + (define-derived-mode factor-messages-mode fundamental-mode "FUEL Messages" "Simple mode to log interactions with the factor listener" (kill-all-local-variables) @@ -55,7 +58,7 @@ (current-buffer)))) (defun fuel-log--msg (type &rest args) - (unless fuel-log--inhibit-p + (when (or fuel-log--debug-p (not fuel-log--inhibit-p)) (with-current-buffer (fuel-log--buffer) (let ((inhibit-read-only t)) (insert