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

*** empty log message ***

Browse source
This commit is contained in:
John Wiegley 2005-02-17 01:29:52 +00:00
parent e75b9b800e
commit 5c25fc413c
1 changed files with 2 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ledger.el
View file

@ -146,14 +146,8 @@ Return the difference in the format of a time value."
(insert (insert
(with-temp-buffer (with-temp-buffer
(setq exit-code (setq exit-code
(apply #'ledger-run-ledger (apply #'ledger-run-ledger ledger-buf "entry"
ledger-buf "entry" (mapcar 'eval args)))
(mapcar
(function
(lambda (x)
(replace-regexp-in-string "\\([&$]\\)" "\\\\\\1"
(eval x))))
args)))
(if (= 0 exit-code) (if (= 0 exit-code)
(if insert-year (if insert-year
(buffer-substring 2 (point-max)) (buffer-substring 2 (point-max))