steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: additional debug level for, well, debugging purposes.

db4
Jose A. Ortega Ruiz 2009-07-31 17:45:46 +02:00
parent 58ec3bda05
commit e006b5f844
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
misc/fuel/fuel-log.el
View File

@ -1,6 +1,6 @@
;;; fuel-log.el -- logging utilities ;;; 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. ;; See http://factorcode.org/license.txt for BSD license.
;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org> ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
@ -34,6 +34,9 @@
(defvar fuel-log--inhibit-p nil (defvar fuel-log--inhibit-p nil
"Set this to t to inhibit all log messages") "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" (define-derived-mode factor-messages-mode fundamental-mode "FUEL Messages"
"Simple mode to log interactions with the factor listener" "Simple mode to log interactions with the factor listener"
(kill-all-local-variables) (kill-all-local-variables)
@ -55,7 +58,7 @@
(current-buffer)))) (current-buffer))))
(defun fuel-log--msg (type &rest args) (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) (with-current-buffer (fuel-log--buffer)
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(insert (insert