diff options
| author | Lockywolf <lockywolf@gmail.com> | 2019-08-29 13:55:24 +0800 |
|---|---|---|
| committer | Lockywolf <lockywolf@gmail.com> | 2019-09-03 15:06:02 +0800 |
| commit | 1e1d13e684c0881a59c3893f6679de77f90e8c21 (patch) | |
| tree | dd2881706c89c5429fab8ce35d7f45b8da491067 /elisp/geiser-log.el | |
| parent | 8fa3ceefd0ec8674a76e1052095474cbe3221a24 (diff) | |
| download | geiser-1e1d13e684c0881a59c3893f6679de77f90e8c21.tar.gz geiser-1e1d13e684c0881a59c3893f6679de77f90e8c21.tar.bz2 | |
Fix latest chicken. Add debug level logging. Fixed typo.
Diffstat (limited to 'elisp/geiser-log.el')
| -rw-r--r-- | elisp/geiser-log.el | 9 |
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: |