diff options
| -rw-r--r-- | lisp/ledger-report.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ledger-report.el b/lisp/ledger-report.el index cf7da31a..22f31394 100644 --- a/lisp/ledger-report.el +++ b/lisp/ledger-report.el @@ -65,6 +65,11 @@ text that should replace the format specifier." :type 'alist :group 'ledger-report) +(defcustom ledger-report-auto-refresh t + "If t then automatically rerun the report when the ledger buffer is saved." + :type 'boolean + :group 'ledger-report) + (defvar ledger-report-buffer-name "*Ledger Report*") (defvar ledger-report-name nil) @@ -361,8 +366,9 @@ Optional EDIT the command." "Redo the report in the current ledger report buffer." (interactive) (let ((cur-buf (current-buffer))) - (if (and (string= mode-name "Ledger") - (get-buffer ledger-report-buffer-name)) + (if (and ledger-report-auto-refresh + (string= mode-name "Ledger") + (get-buffer ledger-report-buffer-name)) (progn (pop-to-buffer (get-buffer ledger-report-buffer-name)) |