diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-07-03 14:07:54 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-07-03 14:07:54 -0700 |
| commit | f16a83a66c7114a78a022872ac4e6295dc0b3118 (patch) | |
| tree | a45d7ef269413c899b9688104446799543f7fa21 /lisp | |
| parent | bb529381c745c9ed9e4476c1245db84dac4ede71 (diff) | |
| parent | 64d6ec675dee74de661768ca98799b37bd917ce0 (diff) | |
| download | fork-ledger-f16a83a66c7114a78a022872ac4e6295dc0b3118.tar.gz fork-ledger-f16a83a66c7114a78a022872ac4e6295dc0b3118.tar.bz2 fork-ledger-f16a83a66c7114a78a022872ac4e6295dc0b3118.zip | |
Merge branch 'master' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-exec.el | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lisp/ledger-exec.el b/lisp/ledger-exec.el index 34757d99..95b28ec2 100644 --- a/lisp/ledger-exec.el +++ b/lisp/ledger-exec.el @@ -35,6 +35,11 @@ "Interface to the Ledger command-line accounting program." :group 'ledger) +(defcustom ledger-mode-should-check-version t + "Should Ledger-mode verify that the executable is working" + :type 'boolean + :group 'ledger-exec) + (defcustom ledger-binary-path "ledger" "Path to the ledger executable." :type 'file @@ -92,9 +97,11 @@ (defun ledger-check-version () "Verify that ledger works and is modern enough." (interactive) - (if (setq ledger-works (ledger-version-greater-p ledger-version-needed)) - (message "Good Ledger Version") - (message "Bad Ledger Version"))) + (if ledger-mode-should-check-version + (if (setq ledger-works (ledger-version-greater-p ledger-version-needed)) + (message "Good Ledger Version") + (message "Bad Ledger Version")) + setq ledger-works t)) (provide 'ledger-exec) |