sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changed the default value of ledger-binary-path to just "ledger", since

Browse source 
there's no need to require an absolute pathname.
This commit is contained in:
John Wiegley 2008-07-17 22:09:26 -04:00
parent a7377e4581
commit 3d1ab0e4e7
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ledger.el
View file

@ -79,7 +79,7 @@
"Interface to the Ledger command-line accounting program."
:group 'data)
(defcustom ledger-binary-path (executable-find "ledger")
(defcustom ledger-binary-path "ledger"
"Path to the ledger executable."
:type 'file
:group 'ledger)
@ -798,15 +798,10 @@ If name exists, returns the object naming the report, otherwise returns nil."
(defun ledger-run-ledger (buffer &rest args)
"run ledger with supplied arguments"
;; Let's try again, just in case they moved it while we were sleeping.
(cond
((null ledger-binary-path)
(error "The variable `ledger-binary-path' has not been set"))
((not (file-exists-p ledger-binary-path))
(error "The file `ledger-binary-path' (\"%s\") does not exist"
ledger-binary-path))
((not (file-executable-p ledger-binary-path))
(error "The file `ledger-binary-path' (\"%s\") cannot be executed"
ledger-binary-path))
(t
(let ((buf (current-buffer)))
(with-current-buffer buffer