summaryrefslogtreecommitdiff
path: root/elisp/geiser-log.el
diff options
context:
space:
mode:
Diffstat (limited to 'elisp/geiser-log.el')
-rw-r--r--elisp/geiser-log.el9
1 files changed, 9 insertions, 0 deletions
diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el
index a252144..e004831 100644
--- a/elisp/geiser-log.el
+++ b/elisp/geiser-log.el
@@ -39,6 +39,10 @@
(defvar geiser-log-verbose-p nil
"Log purely informational messages. Useful for debugging.")
+(defvar geiser-log-verbose-debug-p nil
+ "Log very verbose informational messages. Useful only for debugging.")
+
+
(defvar geiser-log--inhibit-p nil
"Set this to t to inhibit all log messages")
@@ -54,6 +58,7 @@
(when (> b geiser-log--max-buffer-size)
(delete-region (point-min) b))))
nil t)
+ ;; Maybe this feature would better be implemented as a revert-buffer function?
(add-hook 'after-change-functions
'(lambda (b e len)
(when geiser-log-autoscroll-buffer-p
@@ -85,6 +90,10 @@
(when geiser-log-verbose-p
(apply 'geiser-log--msg 'INFO args) ""))
+(defsubst geiser-log--debug (&rest args)
+ (when geiser-log-verbose-debug-p
+ (apply 'geiser-log--msg 'DEBUG args) ""))
+
;;; User commands: